NNN,‏ و1333 1 1[ 11 يي ي۱ 
ذكرة النور د للصف الثالث الاعدادى 





21 DELE OT MR +## الاول‎ Jods 





تعلمنا فيما سبق كيفية إعداد واجهة البرنامج باستخدام لغة 1 .N‏ 12251 1151121( وكيفية ضبط الخصائص ) 1016/6165 
في وضع التصميم من خلال نافذة الخصائص 610125 ۳۳٣‏ وتعرفنا على نافذة الكود ۲۲۱1100 ١001©‏ ) و إجراءات الأحداث 
6 7111 [وكيفية نخصيص قيم برمجية لخصائص بعض الأدوات01111:015') ومن خلالها اتضح لنا أنه يمكن لمستخدم 
البرنامج أن يدخل قيم ( بيانات ) ذات أنواع مختلفة كما هو موضح 





۱٨۰۵-٢-٧ 


6 ذكر 


سال 
-١‏ كل هذه القيم یتم تخزينها فى ذاكرة الکمبیوتر ۸١۷‏ ۸ بتمثيل معن يختلف حسب نوع هذه القيمة 
" - وکل نوع من هذه البيانات له طريقة تخزین مختلفة فى ذاكرة الكمبيوتر وذلك يرجع إلي الاستخدام الأمثل لذاكرة الكمبيوتر 
من حيث المساحة التخزينية و العملیات الحسابية والمنطقية التي ستجرى على هذه البيانات 


-١‏ حتى يتم استخدام ذاكرة الكمبيوتر الاستخدام الأمثل من حيث المساحة التخزينية المخصصة لكل نوع بيان 
-٢‏ حتى يتم استخدامذاكرة الكمبيوتر الاستخدام الأمثل من حيث العمليات الحسابية والمنطقية التي ستجرى على هذه البيانات 
اوالقيم 





الفصل الدراسى الثانى محم 
می حب ھی شی انيب نايبب کی O O‏ کی اک کی جی خی یی نايبب O O‏ انی انی ائی انی ای انی انی انی نی انی انی انی انی ہنی انی انی نی انی انی بيب يب بي اگ ای يي و وی وی و و aC‏ 


حا 


کک تھی لی يي انی ي ابی انی کي انی نی مي انت مي مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي نی مي دي مي کې لي دي کې لي دي کې لي اي کې لي اي کي اې لي انی انی لي نی کې لي لن کې لي اي کې لي لت کي لي لی مي انی انی مي اي همي همي خي هي شر 
پل لل لل لعل لل یل یل یلیل یل یل یل یل لل یل یلال لل لعل لا لل لل د د د ۰ ره د ۸ رڅ رر ره رڅ ره ره هه هد 





NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
ذكرة الور د للصف الثالث الإعدادى‎ 





نو ا؟ الللانان DELE‏ 
توفر لفة ۷٠٧031 13516 .N ٤1‏ العدید من أنواع البيانات (5 1۲6 10313 ) التي تستخدم فى تخزين قيم البيانات التي 
يدخلها المستخدم أو الناتجة من تنفیذ الأوامر او التعليمات الخاصة بالبرنامج 
-١‏ عندما یتم إدخال البيانات بواسطة وحدات الإدخال فإنها تخزن داخل الذاكرة الداخلية ۸۱۷۸ 1 
" - وتتكون ذاكرة الحاسب من ملایین الخلايا ( الأماكن ) المتساوية وتسمی هذه الخلايا بالبايت (1017)6) وتحمل هذه الخلايا أرقاما 
متساسلة تبداً من الصفر 
۲- تمثل عدد هذه الخلايا حجم ذاكرة الحاسب (( ای انه كلما زاد عدد هذه الخلايا (12771) كانت ذاكرة الجهاز اکبر وبالتالي فان سعة 
نخرين البيانات تكون اكبر )) 





اقم نوا اللیائات 1۲٥٥6‏ 1۸284 








هي الني يمكن استخدامھا في تخزین البيانات الرقمية وتنقسم إلى 
-١‏ البيانات الرقمية الصحيحة (156©5' 111112211 111169731 ) : وهى التي يمكن أن تخزن بها أرقام ( أعداد ) صحيحة ومنها 
Integer -5۹11017) - Byte (‏ لع 1,00 ) 
۲- البيانات الرقمية الغبر الصحیحۀ( :)N0 11662131 ۷٧161) 1۲٥‏ وهى التي يمكن أن تخزن بها أرقام بعلامات عشرية 
ومنها : Decimal - Double Single)‏ ( 






ثانيا REN OE E‏ وتستخدم فى تخزين الحروف والكلمات 
ومنها : (String Char)‏ 
ثالثا ل و اي و QE‏ هى البيانات التي لا تندرج تحت تصنيف البيانات الرقمية أو 


الحرفية وتستخدم فی تخزین بيانات منطقية أوتاريخ أوغيرها ومنها: ( Boolean - Date - 0bjec†‏ ( 
۰ كاه dl Data Types Ill ٥۹٣١١‏ 





.١‏ حجم المتغبر (عدد ال ٥5‏ ر8 ) ای حجم الذاكرة التى يحتاجها المتغير من النوغ المصاحب له او حيز التخزين فى ذاكرة 
الکمبیوتر مثل ری ااا عند استخدامه یشفل ( > ٤5‏ رط) 

) هو حدود القيم المتاحة لتخزين المتغبر به ( الحد الادنى و الحد الاقصى‎ )۸ 21١3 ٤( المدى‎ ٢ 
)٥٥٢ مثل النوع ول( يبدا من (الحد الادنى ) صفر وله (حد اقصى )ينتهى عند‎ 

۳ الدقة ( 15001 8۲) هى عدد الخانات التى يتم تمثيل المتغبر بها ( وهی خاصة بال متغيرات الرقمية فقط ) 

وتختلف درجة الدقة باختلاف نوع المتغير 

امتغبرات من النوغ ( 10115 , 11116561 , ]51101 ) تستخدم لتخزين الأعداد الصحيحة فقط و ليست الأعداد التی تحتوى 
على كسور 

اما المتغبرات من الذوع ( 031ا 1 ,00101016 ,511251 ) تستخدم لتخزين الأعداد التى تحتوی على كسور عشرية 
ولكن بدرجات دقة مختلفة تختلف من نوع إلى آخر 


الفصل الدراسى الثانى محم 
ليب شی لی لی لی ای لی لی کی گی ا لو نيب O O O O O O O O‏ انی انی انی انی انی نبب نی انی انی گی انی انی انی انی انی انی بي بيب يب بي گی ھی وی يي aC aC aN‏ 


حا 


اع ی اھ یٹ کک لی لی انی انی انی ابی نی کې لي نی مي انت لی مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي مي مي خي لي دي کې لي دي مي لي اي مي لي اي کي لي لي نی انی لي نی کې لي اي انت لي اي کې لي اي انی لي لی کې مي اي مي مي هي همي مي هي شر 
پل څل لل لعل يل یل یل یل لل یل یل لل یل یل یل لل لعل لال لل لا لا لد د هه ه ۰ه یڅ رر ره رڅ ره ههه هه 


VNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
ذكرة الور للصف الثالث الإعدادى‎ 





1ءء 


هی البيانات التى یتم إجراء العمليات الحسابية عليها 
١۱١‏ غه ١‏ سه 1۱١)‏ 





هى البيانات التى لا يجوزإجراء العمليات الحسابية عليها حتى لو کانت هذه البيانات أرقام مثل ( رقم الهاتف 


رقم المنزل - رقم البطاقة - رقم جوازالسفر - رقم السيارة ....... الخ( 


الحجم الدى درجة الدقة 
نوع البيان نوع البيان | يشغله فى الذاكرة 


بالبایت 

ےڈ mel  |‏ اق 
مهه .شا as.‏ 
_ سك | ٢‏ إتخزيحرفواحه 


yes or No م1106 او‎ or 6 


۲ 


۸ تاريخ من ۰۰۰۱/۱/۱ الى ۹۹۹۹/۱۲/۴۳۱ 





۲ 


byte ,short , integer , 10115 فإننا يمكن تخزينه فى کل من‎ ٠١ اذا أردنا تخزین العدد الصحیح‎ ۱١ 
ن الأصح تخزينه داخل متغبر من نوع ٢را لأنه بذلك سيشغل مساحة اقل فی الذاكرة‎ 


الفصل الدراسى الثانى محم 
يب لی لی ال لی ای لی لی لی لی ال و يبب جی خی یی خی ايب جی گی نی انی انی نی انی انی انی انی نی انی نی گی انی انی انی انی ای انی بي بيب يب انی گی یں وی يي وی يي يح 


حا 


اح ی ای لح ی کک لی تی انی انی انی بھی انی کې انی نی مي انی لی مي انت لی مي مي مي مي مي مي مي مي اي مي خي اي مي مي دي مي کې لي دي کې لي دي مي لي دي نی لي اي انی لي لي انی اې لي نی کې لي اي کې لي اي کې لي لی کې لي اي انی مي انی کي مي هي همي خي هي شر 
پل لل لل لل يل یل یلا یل لل یل یلا لل یل یل یلال لل لعل لال لن لا د ده ۰ه د هه رڅ رر ره رڅ ره ره هه هد 








حا 


N 


پل لل لل لعل لي یل یل یل لل یل یل لل لل لل لل لل لا لل د د د د 7 هد د ۸ رڅ رر ره رڅ ره هه هه 


XASI 


SNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NN NNNNNANA# 


للصف الال الإعدادى 





۲- إذا لواردنا تخزین العدد 407,17491194071؟١١‏ داخل ثلاث متغبرات من نوع 511216 و double‏ و 06111031 


۶ 





القيمة التى نخزن داخل متغیر من نوع 511251 هی ۱۲۷٢١٤٠۱۷١‏ 
القيمة التى تخزن داخل متغیر من نوع 001111 هی ۰ ۱۲۳٣٤١۰۷۸۹۱۲۲۷۰۸‏ 
القيمة التی تخزن داخل متغبر من نوع 06011131 هی :405174؟105,7/4911؟1؟1 


حيث يتم نخزين الأعداد ولكن بدرجات دقة مختلفة تختلف من نوع الى 1< 


ډه © چ 


"- إذا اردنا تخزین حرف واحد فقط فإننا نستخدم متغبر من النوع 01121 اما اذا أردنا نخزين مجموعة من الحروف نستخدم متغبر من 
التوغ 511-1115 





4 
اذا أردنا تخزین الرقم )۲٠۰(‏ فاننا نحتاج إلى بايت واحد )١(‏ رط )١‏ اى خلية واحدة لذلك نستخدم متغير من النوع 
( 1771 ) أما اذا أردنا تخزین القيمة الحرفية 2٠١”‏ ” فإننا نحتاج إلى ٢‏ بايت (©171 ؟) لذلك يفضل أن نستخدم متفر 
من الذوع ( 511-1115 ) 


5 يمكن ضبط الخصائص ۰0067165 من نافدة الخصائص Properties 7٧‏ او برمجيا من نافذة الكود 
Code Window‏ 

گا يقصد بضبط الخصائص ۲۰0067165 تحديد قيمة للخاصية ٧00677‏ و هد القيمة لها نوع بيان محدد 1(212 

16 

گا يمكن إظهار نافذة الخصائص من قائمة View‏ ثم نختار Properties widow‏ 


گا یمکن فتح نافذة الكود من قائمة ۷1٢٢‏ الامر 00 








4 ۷× 


الخصائص ۳٦001011165‏ هی مكان تخزین البيانات ولها نوع (06 117 ) أونوع بيان (1716 10212) . 


۷ 


11(1 وتختلف الخصائص حسب العنصر النشط فی شاشة ال‎ -١ 
14 ؟- يمكن إظهار نافذة الخصائص من خلال لوحة المفاتيح عن طریق الضغط على الزر‎ 
؟- الجزء الأيسر يحتوى على اسم الخاصية ]1 اما الجزء الأيمن يحتوى على قيمة الخاصية‎ 


الفصل الدراسى الثانى 





ا همي هم هم هن هم هن هم هن هم هن هم هن هم هم هم مض مس هم هب همز 


کک کک لی لی انی انی انی ابی انی انی انی نی مي ي مي مي لي مي مي مي اي مي مي اي مي مي اي مي خي مي مي مي مي مي مي لي دي مي لي دي کې لي اي نی لي اي کي لي لي انی اې لي نی کې لي اي کې لي اي انی لي اي کې اي اي اي مي اي مي مي همي همي خي هي شر 














و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


حا 


پل لل لعل يل یل یلا یل لل یل یل یل لل یل یل يل يل يي رلا رلا ينن را هده ه۰ هی رڅ رر ره رڅ ره ره ره هه 


0(0 0۱۱۱۱ ( م٢ 0۱٠۰۰۱‏ فں نافذة الکود 





.١‏ قف بمؤشر الفارة على الخاصية ٧۲٥٣٥٧)‏ بعد كتابة جملة التخصيص للخاصية ٧٠/6١٣‏ فى نافذة الکود 
٢‏ يظهر مستطيل أصفر به نوع البيان ٤رآ‏ 10212 الخاص بهذه الخاصية ٢/6٣‏ ويظهر بعد كلمة ک ٨۸‏ 
مثال 





ضط خصائص | "ext ,۸ 010 Size , Wid‏ ] الخاصة باداه کم العنوان 11ء٢‏ 


"جفمهورية فصر الغربية" = Labe11.1e%t‏ 


5111115 نوعها(‎ )1 ×٤ ( الخاصية‎ 
Public Overrides Property Text) As String ( 5 دوعها(‎ 


False‏ = 5126٥0ھ.‏ 11ع ط8ا 


: : SEE 110016311 ) )ں۸ ( نوعها‎ 0517٤ الخاصية‎ 
Public Uverrides Property زاء اذم ارام‎ As Boolean 


Labell1.WIidth = 120 Integer ( نوعها‎ ( W1dth الخاصية‎ 
Public Property Width As Integer 


. القيمه المجردة مثال الخاصية )1 

القيمة المنطقية مثال الخاصية 170:01 

. القيمة من قائمة مشال الخاصية ForeColor‏ 
. القيمة بإنشاء كائن مثال الخاصية ۴٥۸٣۲‏ 

. القيمة من ناتج تعبير حسابی 


. القيمة من متشیر ‏ 1211301 او من خاصية Properties‏ 





الفصل الدراسى الثانى 
هښ هښ هس هي جز هس مي هل هل هل هن ع هل هن هم هم هن عن ثح هل هي هي هي هي مم مم هي نحن هم هم هم هم هن هم هم هم هم هرن هن هم هم هم هرن هن هم مس هز 


ای ابی الي لبي لی لی انی انی انی ھی انی انی اي نی کې کي مي مي لي مي مي مي مي مي مي اي مي مي اي مي خي مي مي مي مي مي مي لي دي کې لي دي کي لي اي کي لي اي کي لي لي انی اې لي نمي کې لي اي کې لي انی کې لي لی کې لي لی مي مي اي مي مي همي همي خي هي شر 


”و هده ممم ممه عم عه مد مه مد هه هه مه هه م مه هه هه هماه مهه هه ههد م مهه مم مهه هه مله مله عا مامه م ههه مهك اعد همام اه هدم عدو 





قفواعد 0 0 ) 4)©1 ۱۱١١١۱١١‏ لسشه و اللوابت فى ٥8/۱١۱‏ لي لزت ۲:٠:٢۹‏ 


.)۱00 ٠۱۶۰ _ يجب أن يبد أ اسم المتغبر بحرف من الحروف الإنجليزية( 3-2 , 4-7 )أو ( علامة الشرطة السفلية‎ ١ 

". لایسمح أن يحتوي وو أي رموزأو علامات خاصة كالمسافة او النقطة (.) او علامة الاستفهام (؟) اوعلامة التعجب (١)أو‏ 
النجمة أوغيرها (7.*,“,-,+, .) وغيرها 

۳ يمكن أن يتكون الإسم من حروف وأرقام وعلامة _ 01111901-6 الشرطة السفلية . 

« Byte. Short. Data ؛‎ double Je vb.net فى‎ (reserved words) لا سمح باستخدام الكلمات المحجوزة‎ .4 
Me , Boolean . string «char . decimal . single . Long ۰ Integer 

ه. من الأفضل أن يدل الاسم على محتواه .((( اخترأسماء ذات معنى مناسب لاستعمال المتغبر بحيث یعکس اسم المتغير محتواه و دوره فى 
الحل مثل المجموع 511112 و المتوسط 1771256 ))) كما يجب اختيار النوع المناسب لكل من الثوابت والمتغبرات 





أمثلة لأسماء المتغبرة اله ۱ 


FirstName 
۸16020001! 
112111110110 


5006 7 


Kalle)‏ اسعاء ajel‏ الصسية 


(اد 200۲۲۲11۲۲ اسم التفبر یبدا برقم 
٧۳٨٧٨٩7٢‏ | اسم المتغير يحتوى على نقطة 


7 11101 | اسم المتغبر يحتوى على مسافة 


اسم المتغي ركلمة من الکلمات المحجوزة فى ۷8 
اسم ايا اشرمة مايه 


كيفبت انا( نوع البیان م17 ۵٥۴‏ الفناسب لكل مس 


عند اختیار نوغ البيان الناسب 1۲6 363( 1 يرا 


0¢ 44 


.١‏ حجم البيانات الني سوف تخزن فى المتقير1 1791-12 اى ( حجم الذاكرة ”عدد ال ۲٢۲٢٥٢‏ ذ] ”الذى يحتاجه البيان 





الذى سوف يخزن فى المتغبر ) 
٢‏ تحدید نوع بيان القيم 1۲6 315( التى سوف يتم تخزن بالمتفبرع1 1721121 بناء على العمليات الحسابية والمنطقية التي مز 
الممكن إجراؤها على المتشبرءع1 21121 ١/‏ . 


الفصل الدراسى الثانى 
7 لمي خر خر خر خر خر خر ي هي حر هي هي حر حر هي هي ي هي هي ي ي المي ر هي ڪي ي هي هي هي خی ہی هي الال الال الال ي هي جي هي ي جي هي جي هي هي هې هې مې هې هې مر 


> 


اح ی اھ ی لح کک لی نی انی انی ي ي ي کي ي نی کې کي لی مي انت لی مي مي مي کي مي ي کي مي اي نی خي اي نی مي مي مي مي لي دي کې لي ي مي لي دي نی لي اي کي اې لي نی اې لي نی کې لي ي کې لي ي کې لي ي کې لي لی انی مي انی کې مي همي همي اک هي شر 
پل لل لعل يل یلا یل یل یل یل یل یلا یل یلیل یل یل لا يل يل رلا رلا يل ين لا لا لد هه د هه ۰ه هڅ رر ره رڅ ره ره هه هد 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


مكمه قيمة false ۴ {r€‏ أحسن استغلال للذاكرة 


کائن اوالعام | كل الأنواع يمكن تخزينها هنا لأنها اکثر مرونة وتستطيع ان تتكيف 


مجموعة من الحروف أوأرقام لا تدخل 
String‏ حروف في الحسابات ( أرقام التليفون- الرقم | الاختيار الوحيد 
القومى ) 
استهلاك قليل للذاكرة كما انه سريع ذ 
Short‏ من -۲۲۷۹۸ الى ۲۲۷۹۷ کر سریع دی 
الحسابات 
الأعداد 


سي اسبيعة 


مر 


يحتاج ذاكرة أقل من 0115 1 وأسرع فی 
من ۲۱٢۷٣۸۲٦٢۸-‏ الی+ ۲٢٢١۷٢٤۸٤۷٥٢٤۷٤‏ 2 سر 
الحسابات 


اكبر من ۲٢٢۷٢۸٤٢١۷‏ الاختيار الوحید 
من "٠١-‏ الى +۱۰ "او سبع خانات دقة | أسرع في العمليات الحسابية منع1(01111 


Double‏ | قام ن اكبرمن١٠'‏ او اكثر من سبع خانات دقة | الاختيارالوحيد 


قدرة علي تخزین الجنيهات والقروش بدقة 
Decimal‏ مبلغ من المال عالية وبدون أخطاء كما انه سريع فى 
العمليات الحسابية 


Constants لولت‎ 





هي عبارة عن أماكن محجوزة بذاكرة الكمبيوتر 11۸۱۷1 عند الاعلان عنها ويتحدد لها اسم و نوع بيان 1۲٥‏ ]172 ولها 
قيمة ثابتة وهذه القيمة لا يمكن أن تتغبر أثناء سبر تنفين أوامر وتعليمات البرنامج 
و ص 
بعض الثوابت الرياضية كقيمة ط او بعض الثوابت فى الفيزياء كعجلة الجاذبية الارضية و سرعة الضوء و سرعة الصوت و جميعها قيم 
ثابتة لا تتغير 1 








-١‏ يتم الإعلان عن الثوابت ثم تخصيص قيمة لها حسب نوع بيان 1۲6 17212 أثناء الإعلان عنها فقط 


۲- قيمة الثابت )ائداه © ( ثابتة ) لا يمكن أن تتغبر أثناء سبر تنفیذ أوامر وتعليمات البرنامج 





الفصل الدراسى الثانى 
هښ هج هي جز هس هي جح هل جز ع هل هن ع ثح عن ثح جز هم هي هس هي چي چي چم هي نحن هم هم هم هي هن هم هم هم هم هرن هم هم هم هم هرن هن هم مس هز 


حا 


اع ای جح کک لی تی انی انی انی بھی انی کې ي نی کې انت لی مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي مي مي مي لي دي کې لي دي کې لي اي نی لي اي کي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي کې لي اي مي مي اتی مي مي هي همي خي هي شر 
پل لل لل لل یل یل :2 لل یل یل لل يل لا لا يا يي ري ري ري د لا د د د 7 7 777 هڼ رڅ رر ره رڅ هه هه 


جو ب ب ب ب ب ب يج يج وج وج وج وج وہ وہ يج يج مم وہ وہ وہ ب ب ب ب وج يج يج يج ب نج نج وہ وہ يي يج يج يج وج وج يج يج يج نج نج وہ ني يي ين 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 


تعریف اخر 
الثوابت : هي مخزن فى ذاكرة الكمبيوتر يحمل القيم التى لا تتفیر اثناء تشفيل البرنامج ويجب الاعلان عنها داخل 


البرنامج واعطاء قيمة لها أثناء الاعلان عنها 


الصبعة العامة لاان كن الب الف فل ارامح 


تستخدم جملة )0:5 ثم كتابة اسم للثابت 112111 0151]2111') ثم كلمة ۸۰ ثم نوع البيان 1۲ 10315 ثم 
علامة = ثم القيمة كما هو مبين كالاتي 








٥‏ 1 :أمرالاعلان عن الثوابت. 

." م۷011 010563111 )اسم الثابت 

٥‏ م1۳ 1363: نوع البيان المخزن في الثابت. 

۷٢٢ ٥‏ :القیمة الثابتة التي سيتم تخزينها في الثابت ال معلن عنه. 


- الإعلان عن ثابت ۷٥:6‏ له نوع بيان حرفى 501108 وتم تخصيص القيمة النصية ''جمهورية مصر العربية '' أثناء 





الإعلان '' جمهورية مصر العربية '' = Const C_Name As String‏ 
٢‏ الؤعلان عن ثابت71 له نوع بیان ه۱21 ونم تخصيص القيمة الرقمية 7 / 22 أثناء الإعلان.او القيمة (3.14) 

Const pi As Single - 7 OR Const pi As Single = 3.14 

؟- الإعلان عن ثابت 131111031 له نوع بیان ه1191 وتم تخصيص قيمة التاريخ 11/25/20118 _أثناء الإعلان. 


Const BirthDate As Date - 7 


۱ ) 
.١‏ تستخدم علامتي '' '' في حالة إذا ما أردنا كتابة نص 
٢‏ تستخدم علامتي # # في حالة إذا ما أردنا كتابة تاريخ أو وقت 


١‏ اضغط على مفتاح 17 من لوحة المفاتيح 

؟- قم بتنشيط الأداة المراد فتح نافذة الكود لها ذم نختار من قائمة 17212 الأصر 6006 
؟- قم بالضغط مرتين متتاليتين 0-01١)‏ على الأداة المراد فتح نافذة الكود لها 

17125 0002 اضغط بزر الفارة اڈیمن ثم اخنر من القائمة المختصرة‎ -٤ 





الفصل الدراسى الثانى محم 
يب لحب يبب ال O O O O O‏ ۱ی ا کو O O O O O O O‏ نی انی نايب انی انی انی انی انی انی انی ہنی بيب O‏ بيب انی انی انی انی ہیں يب انی يي يي یں وی وی و ير 


حا 


کک یھی لی لی انی انی انی ابی انی انی اي نی کې انت لی مي مي لی مي انت اي مي مي اي مي مي اي مي خي اي مي مي مي مي خي لي دي مي لي دي کې لي اي مي لي اي لي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي کې لي اي انی انی اتی مي مي همي همي خي همي شر 
تح 
خہںھہںخہۂہیکھہکگیگہیگیگیگی۸ ی۹ م۸۹ لل لل لل یل یلا یل لل یل یل یلیل یل یل یلا یل يل يل رلا رلا يل يي لا لل د د ۰ه دد ۰ هڅ رر ره رڅ ره هه هه 


حا 


و ف و امم ممام مم مام م عم امم ھ امم ام ما ع ھھھ ھھھ م مھ ھھھ ھم مم مممعممعممممممتمم مم مد مهاه دام م مام نه ع هه 


پل لل لل لعل لل یل یلا یل لل یل یل یل لل یل یل لل لعل لا لل لا د د د د په د هپ رڅ رر ره رڅ هه هه 





قم باعداد برنامج بلغة آ ۷1٥.۷17‏ يستقبل قيمة رقمية لنصف قطر دائرة, فیحسب مساحتها ومحيطها عند الضغط على زرأمر 
BOR‏ 

ا : مساحة الدائرة 13 7 ومحيط الدائرة ٢‏ 27 حيث : 1تمثل نصف القطر 22/7 = 7 

-١‏ صمم نافذة نموذج ٧٧011‏ كما هوموضح 






7 مساحة ومحیط الذائرة 


أدخل نصف القطر 


| مساحف الدائرة | 





"- ثم نقوم بفتح نافذة الكود 77112201077 ©0001) بالضغط على مفتاح ٧٢٢‏ ثم 
إضافة إجر ا ء الحدث 1112 )لكل من ز ري الامر Button1,8u))012‏ 


۶ 
(۳۱11 1355 Form3 
Buttonl Click {ByVal sender As Ubject, By" 


Frivate Suk 


End Sub 


Private sub| Button2_Click (ByVal sender As Object, By" 
End Sub 
End Class لاح‎ 
ومحيط الدائرة‎ 16)0111 )11 ck الخاص بحساب مساحة الدائرة باستخدام إجر ا ء الحدث‎ ٥0٠٥ سوف نكتب الكود‎ 
عند النقر على أحدهما.‎ ٢,3012 باستخدام إجر ا ء الحدث 15111012_)1111 وتظهر النتيجة داخل أداة التحكم عنوان‎ 


في نطاق إجر ا ء الحدث ٤لَ(11/)‏ 1066011 نكتب الكود ©0016 ) التالى : 
شرح . 4 ٤ (ByVal sender‏ للا Private sub Bbuttonl‏ 


Dim Radius ۵8 6 س‎ 





51011 ثم الإعلان عن متغیرsںآل ۸2 من النوع‎ .١ 
Const pi As Single = 227 22/7 ثم الإعلان عن ثابت ذم من النوع ۱216 وم وضع القيمة‎ ۲ 
Radius = 1658001 7 ٠٣” ٣ل ثم تخصيص القيمة من الخاصية)×ء 1 .80×1)×ء1 للمتغر‎ ٢ 
Label2.lezt = 01 * 8301115 ^ 2 -- ثم تخصيص التعبير2 ^ 10901115 * 1 للخاصية‎ .4 


67 تطبيقا للقانون الرياضي الخاص بمساحة الدائرة End dub‏ 


الفصل الدراسى الثانى 


هښ ا هم هم هن هم هن هم هن هم هم هم مض هم هم هم هز 


کک کک لی يي انی انی ابی نی کې انی نی مي انت مي مي انت لی مي مي مي مي مي اي مي مي اي مي مي اي مي مي مي مي مي لي دي کې لي دي مي لي اي کې لي اي نی لي لي انی کې لي نی کې لي اي کې لي اي انی لي لی کي اي اي مي مي انی مي مي همي همي خي هي شر 


حا 


.ههام امم مم امم م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم مم مد مهاه مام همام نه هت هه 







ونكتب قيمة د 








پل لل لعل 2 2 :21 یل یلا یل 2 2 :2 یل یل یلیل یل یل لل لل لعل لال لل لا د هه دپ رڅ رر ره رڅ ره هه هه 


بعد الانتهاء من كتابة الكود 001 )نقوم بالضغط 
5 مفتاح5"! تعمل Start Debugging‏ 

نصف القطر ثم نقوم بالنقر على زر 
''مساحذ الدائرة"'' 














له مساح وصحط التائرة 





أدخل نصف القطر 
0 


ہے مساحة الدائرة 











محيط الدائرة ٠‏ 


۷۰۹ ۱ء ۸۸۲۱۱۱ 





لدب ٢١‏ دید ناف إعلان (Variables) E‏ ډاللوالن ) Constants‏ ( 





یقصد بنطاق المتغيرات أو الثوابت موضع الاجراء الذي يتم فيه الاعلان عن الثابت او المتغير واستخدامه ( مستوبات الاعلان). 
قم بإضافة الكود (٠٥١١‏ الخاص بحساب محيط الدائرة وذلك في نطاق إجر ا عالحدث ٦)0012_))11 ce‏ ں8 نكتب 


Radius = TextBox1. Text الكود 001 الآتي:‎ 
Label2. Text = pi * Radius * 2 
ليصبح شكل الكود كما يلي:‎ 


Private Sub Butvtvonl لاف لل ټک 11 ) عا لول نا‎ sender As Ub) 
1۸ 1 ۳٣ Ha dius ج 1 ی311 ک5 كت‎ 
Const لدج‎ As Sinqle = ادس‎ 7F ګج"‎ 
Raû1lus = 22ت ا عدت لا‎ 12 
Lake]. TegT = ون‎ ۴ Radius + 2 
11133 Sub 





223 ۲ ت‎ fe لی ټس بجوم‎ sender As Ob; 
1 اعد ل1 . ا نی کل ا عا ې لا = 115 لقع‎ 
لمھ٣ ۔‎ Text = pl * 282001 ٭ 5ن‎ 2 

Ena ظتاک‎ 


كما يظهر رسالة داخل المستطيل الأصفر عند توجيه مؤشر الفارة إلى التغبر 01 في السطر الثاني كما هو موضح 
انا Private Sub Buttonz Ll1ick({EByVal sender As‏ 






تتوظع 2ه 1 = 115 12501 
ل- ٭ 5301115 * 3 = LabelZ. Text‏ 


End Suk 


الفصل الدراسى الثانى 
هښ هښ هس هي جز هس هل هل هل جز ع هل هن ع هم هن عن ثح هل هم هي هس هي نج نحن نحن هم هم هم هن هن هم هم هم هم هرن هم هم هم هم هرن هن هم هل۳ هن هز 





.ا اليه کي کک لی نی نی انی انی بھی نی انی انی نی کې انت لی مي انت مي مي مي مي مي مي اي مي مي اي مي مي اي نی مي دي مي خي لي دي اي لي لی کې لي دي کي لي اي انی لي لي کي نی لي نی انت لي اي کې لي انی کې لي لی کي اي اي کي انی انی مي مي همي همي خي هي شر 

















و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 





فسوف تظهر رسالة خطأ مفادها عدم التعرف على المتفي 12011115 والثابت71 حيث نم الاعلان عنهما في الاجراء الخاص بزرالامر 
1 د( بالتالي فهملا غير معرفين في الاجراء الخاص بزر 1511660112 
ب۸ یا 


-١‏ أننا لم نعلن عن المتغبر والثابت فى نطاق اجراء الزر 2 1ظ 

"- تم الاعتماد على أن المتفير 130115 والثابت 71 سبق اعلانهما في نطاق إجر | ءالحدث؛11) 1701660111 
؟- تظهر رسائل داخل مستطيل أصفر تنبه أن المتغير 12011115 والثابت 71 لم يتم الإعلان عنهما في نطاق إجراء 
الحدث 1711410112 رغم أنهما معلنين في نطاق إجر ا ءالحدث Button1_Click‏ 

استنتاج هام : أن المتغير ا ت والثوابت لا نستطيع استخدامها إلا في نطاق إعلانها 


يمكن حل هذه المشكلة بطريقتين ( الطريقة الاولى ) 
يمكن أن نعيد إعلان التغبر 1301105 والثابت 01 مرة أخرى فى نطاق اجراء حدث الزْرَ[11)) 131100112 لأنه لا 
يمكن استخدامهما إلا فى حدود نطاق الإجراء فقط ( المتغبرات المحلية ١١21121125‏ 1,0631) 





ماح ص [رنطانقة sender As‏ لاف لا كا ) عل ل لا اه Sub Buttonml‏ څې اس تجح 77ب 
As 52522121‏ 115 دډدلګع Ha‏ 1ه 1 
و" F7‏ تر ۶ے = As Single‏ لدج .دج وروت 2م 
اا د 1 ll‏ جفوکجل ‏ رتك DL us = "٧‏ يح غلا 
ا ۳ چعد يه لو ملا ™ PI‏ = يوعوت 1 ۶ Labbe ٢‏ 
Eni Sub‏ 


وناک یا Private Sub Button LC LlIIcCTCkKEK{EYVal sender As Ub‏ 
ې ا1 As SIN NIG‏ جحس بات DDL Ha‏ 
ګر" رر Aas Sin qlee = Fp‏ لدج ع كج عبت 
غ فرع ۸ ا عٹثبتچراح جح یو = lus‏ يح غلا 
کے ۷۴ جتنن ٤۴‏ لځ وح ملا ۴ ورت = Labbe]  _ TegT‏ 
جاساک Enid‏ 








( الطريقة الثانية ) 
كما يمكننا أن نعلن عن المتغيرات ۷٥٧٠٥71١‏ والثوابت 0:53:11 على مستوى التصنيف 1355 ) وعندها لا 


نحتاج عملية الإعلان عند كل نطاق إجراءحدث Event Procedure‏ (التغرات العامغٌی (Global ۷٥۱٨11‏ ې ۱ 





١٠١ E] Fuk 1 چ ج25 ك1 ی3‎ Forms 
دن فا‎ Radius As Single 


TCTonst pH As Single = ۶ے‎ ٣ خر‎ "٣ګ‎ 
= FrFiwate Sub BuTttonl LC LIIckE(BYVal sender كك‎ 
HadDlDuUus = ل عبت ول ا عرے و‎ . Tet 
Take ) 1 ون = اععۍی‎ ۴ Radius د‎ 7 


Eni Sub 


كت sender‏ لاف له ټانظ) علات لال ا" Sub ButtonzZ‏ جج .اث ام ٢)‏ اس 
عات ل1 2185-5221 ج122 = هي نين «ه Hai‏ 
Radius ™ F7‏ ۴ ورت = اوح 1 د ) Taye‏ 


1 فد 1:ة.‎ SUE 


5 ک سے لل ا End‏ 
الفصل الدرامی اللا 


ای ای ای لی لی انی جن نان نی انی انی لبي نی مه مه انی نی انی انی انی انی نی انی انی انی انی انی لبي اتی نی بيب انی انی يح انی بي بي نی يي يي نی یں يي يي یں ا ا 


حا 


کک يج لی تی انی انی انی ابی نی کي انی نی مي انت لی مي مي مي مي مي اي مي مي اي مي مي اي مي خي اي نی مي اي مي مي لي دي مي لي دي کې لي اي مي لي اي ي لي لي انی انی لي انی کې لي اي کې لي اي کې لي اي کي لي لی مي انی لی مي مي همي همي خي هي شر 
پل لل لل لعل يل یل یلا :2 2 یل یل یل یلیل یل یل یل لا لل لل لال لل لا لال لد د د د ه۰ هڅ رر ره رڅ ره هه هه 








"و مقعم همه م ممع م م م عام امام 0 مھ ھھھ ھھھ ھھھ م مھ مم ھم مم مم عممعممممممتمم مھم مد مهاه دام م مام نه هت شي 





حيث تم الإعلان عن المتغير 1301105 والثابت 01 في نطاق التصنيف ۴٥۲٣3‏ فاستطعنا استخدامهما داخل نطاق 
إجراءات الأحداث Button1_Click‏ و Button2_Click‏ لان إجر | ءات lحldة Button1_Click‏ 

و 11٤‏ )- 0112))امعلنه في نطاق التصنيف ٧0٥3‏ ايضا 

وعند تشغيل البرنامج بالضغط على مفتاح 5 لعمل2 702210 ع(1 ۳٩1)‏ وادخال نصف القطر, نحصل على اثناتح؛ كما هو موضح 


مس ابنحضاادانۃ ظ ووو | سس دې الدائرة | مح الداتية 


(۸,۸0۷۸۱ ے‎ ٦۸,۱۸۷ ٦۹ 





الکتفیزاتے؟ ٥‏ اما۷15 





و( 
تھے 
4 
هی عبارة عن أماكن محجوزة فى ذاكرة الكمبيوتر 101 !1 عند الاعلان عنها يتحدد لها اسم ونوع (065 1۲ 28 )و 
تتفير قيمتها أثناء سير البرنامج ويمكن ان تاخذ قيمة ابتدائية 


ا 


سلعة اومنتح - قيمة الضريبة - عنوان موظف (جميعها بيانات يمكن أن تتفیر) 


-١‏ يتم حجز الأماكن فى ذاكرة الكمبيوتر بالإعلان عنها ( ای إعطاء أسماء للخلايا التى تحمل قيم متفيرة) 
٢‏ يتم تخصيص قيمة للمتغيرات على حسب نوع البيان 1۲065 10313 

۲- یمکن أن يأخذ المتغبر قيمة ابتدائية تسمى ١72111:‏ 11116131 

. هذه القيمة یمکن أن تتغبر أثناء سبر تنفیڈ أوامر و تعليمات البرنامج‎ -٤ 


إلى 4 
.١‏ قبل استخدام ای متغبر داخل برنامج ” 13251 17151121” لابد من الإعلان عنه 
٢‏ ویتم ذلك باستخدام صيغة معينة تسمى الإعلان عن المتغبرات و هذة الصيغة تبدا ب كلمة 10101 





الفصل الدراسى الثانى 
هښ هج هي جز هس مي هل هل هل هن هل هل هن هم ثح هم ثح هل هل هي هس حجن جح هي چم جمن هم هم هم هي هرن هم هم هم هم هرن هم مس هم هم هرن هن هم هل۳ هن هز 


حا 


کک الي کک ابيب نی انی انی انی ای انی انی اي نی کي انت لی مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي مي مي مي لي دي کې لي دي کي لي اي نی لي اي نی لي لي انی اې لي نی کې لي اي کې لي اي کې لي اي کې اي لی انی مي انی مي مي همي همي خي همي شر 
پل لل لل لل :1 یل یلا :2 لل یل یل یلیل یل یل یلا لا يل يل رلا رلا لن نن د د د هه 7 رڅ رر ره رڅ ره ره هه 

















NNNNNNNNNNNNNNNNNNNNNNNNNNN NNN ۱٥۱٧۱۱٧۳ 
ذكرة النور د : للصف الثالث الإعدادى‎ 





70 مر الاعلان عن المتفبرات 
۶۴ء۷1 :اسم المتغبر 


ډه ¢ چ 


6 ٌ1 :نوع البيان الذي سيتم نخزينه في المتفير. 
6 1:131 القيمة الابتدائية التي يتم تخزينها في المتغير المعلن عنه , ( وهذا الجزء اختياري) 


9 





پڪ 


Dim Population as Integer 
11112561 الكود يعني : الاعلان عن متغیر باسم ۲00131011 فی الذاكرة, نوعه رقمى صحيح‎ 
Dim V_Name as String 
5111118 فى الذاكرة, نوعه حرفی‎ ۷ ۱۷٠٠٧٠٧۴ الكود يعني : الاعلان عن متغير باسم‎ 
Dim Today As Date = 41/25/2011 
1021 الكود يعني : الاعلان عن متغير باسم 100127 فى الذاكرة, نوعه تاریخ‎ 
Dim Price as Decimal = 123.5 
123.5 فى الذاكرة, نوعه رقمى عشرى 1(61131 و اعطاء قيمة ابتدائية له‎ ۲۲١١ الكود يعني : الاعلان عن متغیر باس‎ 


۰ 
و( 





- لابد من استخدام جملة 171101 للإعلان عن المتغير‎ .١ 

)=( یمکن ان تکتب ( -) وبعدها قيمة وهذه القيمة ( اختيارية ) و ستكون قيمة ابتدائية أو يمكن ان تهملها و لا تستخدم‎ ٢ 
٠ = المتغبرات الرقمية تبدأ بقيمة صفر‎ <2 
””= المتغبرات الحرفية ستكون فارغة‎ + 
1' 215 که المتغبرات المنطقية تاخد القيمة‎ 





متغيرات لها نفس نوع البيان ) 


Dim Child Weight , Population ,„sum as Integer 





الإعلان عن مجموعة من المتغبرات باستخدام أمر ”1 واحد ( متغبرات ذات انوع بيانات مختلفة ) 


Dim Population as Integer= 123, Name as String=''Ahmed'', Price as Decimal =123.5 


الفصل الدراسى الثانى محم 
يب حب شی می لی ال لی لی نکی O O‏ لو ب جی خی یی خی جی جی گی انی انی نايبب انی انی انی انی انی نی انی بابب ايب نی انی انی انی انی بي بيب يب بي گی ھی وی و وی وی يي ير 


حا 


کک کي کک لی لی انی انی انی ای نی کي اي نی مي انت مي مي لي مي مي مي اي مي مي اي مي مي اي مي خي اي مي مي مي مي مي لي دي کې لي دي مي لي اي مي لي اي لي لي لي انی اې لي نی کې لي اي انت لي اي انی لي اي کې لي لی انی انی انی مي مي همي همي خي هي شر 
پل څل لل لعل لل یل یلا یل لل یل یل یلیل یل یل یل يل يل يي رلا رلا يي لا رل لد پل د هن 7ه 7777 ره ره ره ره ره هه هه 


NN NNN NNN NANAN,‏ 5|000100000010000010000101010101010010101010101101011000ظش 
ذكرة النور د : للصف الثالث الإعدادى 





اکتب كود 1.۱٧٧٩‏ ۷ اللازم للاعلان عن المتغيرات التي نحتاجها لاستقبال البيانات التي يقوم الستخدم بادخالها من خلال نافدة 
نموذج ”تسجيل مستخدم جديدء” وذلك باتباع الخطوات التالية : 
١‏ - صمم نافذة النموذج كما دلى : 





"- اضف اجراء الحد تم 10660101 Event‏ 
عن طریق الضفط على زرتسجيل ‏ تسجبل | مرتين متتالیتین لفتح نافذة الكود الخاصة بها ثم قم بكتابة معالج الحدث 
٦٢٢۱٢١ 7‏ والذي يسمى او يطلق عليه أيضا إجر اء الحدث ٣۳٣١٣٣١٦٢٠٢‏ 1/7111 وقم بالإعلان عن المتغيرات كما 


Private Sub BEButton1 Click {ByVal ser : بالشكل التالي‎ 
نا 0دت‎ Haque As ک٠‎ 1013 
Lim كت إل کل نا‎ Date 








Dim عرس وجا لا‎ ûs Boolean 
Û "ل به نا‎ As Integer 
۶11000 Sub 








ابص 
معالح الحدث 1121101121 )11:11 يسمى او يطلق عليه أيضا إجراء الحدث Event Procedure‏ 





الفصل الدراسى الثانى محم 
يب ليب شی می ال ال لی لی نی ۱ی ا لو کی ابيب خی نبب خی جی جی گی انی انی ائی انی انی انی انی انی انی انی انی انی انی ہنی گی انی انی ای انی بيب اتی انی يي يي يي وی وی يي ير 


حا 


کک یح ی لی يي انی انی ابی انی انی انی نی مي انت مي مي انت لی مي مي اي مي مي اي مي مي اي مي خي مي نی مي مي مي خي لي دي لي لي لی کې لي اي کي لي اي لي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي کي لي لی مي انی انی مي مي همي همي خي هي شر 
پل لل لعل لل یل یلا یل لل یل یل لل یل یل یل يل يل يي رلا رلا ري يي ري رل را" هن" نا اه د هه 7 یڅ ره ره رڅ ره هه هه 








N 


> 


پل لل لعل يل یل یلا یل لل یل یل یل لل یل لل لل لعل لا لل د د د د هه د رڅ رر ره رڅ ره هه هه 





الفصل الدراسى الثانى 
په هي مي هي مي هس جس هڼ و 


”ہمیگیگیگ کیک کیک SNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NN‏ 


© ١(سهتااهت‏ ق ۶5۱۱٠ ٠۷۹‏ ما بت۲ی 


للصف الال الإعدادى 








يقصد بها وضع أو تعيين قيمة لثابت أو متغير وجملة التخصيص عبارة عن طرفين بينهما علامة = الطرف الايسر 
يمثل اسم امتغبر أو الثابت الذي يستقبل أو تخزن فيه القيمة بالطرف الأيمن 
£ 





الي 
-١‏ جملة التخصيص عبارة عن جملة من طرفين بينهما علامة ( = ) هذه العلامة لا يقصد بها علامة تساوي المعروفة فى 


الحساب ولكن يطلق عليها معامل التخصيص 
٢‏ الطرف الايسر لهذه العلامة یمثل( اسم المتغبراو الثابت ) المكان الذي يستقبل اوتوضع( تخزن) فيه القيمة 


-٢‏ الطرف الادمن من جملة التذ عبارة عن القيمة 


قيمة مجردة 
او 
قيمة من متغبر 7721111 متفیں 772111 
او او 
خاصية (61٣۲‏ 10 خاصية (61٣۲‏ 101 
او 
قيمة من تعپر Ex p٣٤٤۶510,‏ 





۱ 





۰ 
حمس 


اسم المتغير الذى نريد التخزين فيه يكون على يسار ”=” 

القيمة الراد تخزينها تكون يمين ”= ”وتكون من نوع ملائم لنوع المتغير 

۲ ان قيمة المتفيرات التى على يمين ”= ”يتم تخزينها فى المتغير الموجود على يسارها 

. القيم المراد تخزينها يجب ان تكون من نوع ملائم للمتغير الذى سيتم التخزين به فالقيم الرقمية يجب ان 


ډه ¢ *» 


تخزن فى متفیرات رقمية و القيم الحرفية يجب ان تخزن فى متفیرات حرفية وهكذا .. 


CDC GES س هی‎ ٧۱۱١ alae) رہام‎ 


و 
¢ 


00: 





٥‏ مبردت 





Dim Number As Integer 
Number = 5 


تم الإعلان عن متغیرا سمه ۲٤ں‏ من النوع1© 11125 ثم تم تخصيص القيمة المجردة ( 5( للمتغبر Number‏ 


ا همي هم هم هن هم هن هم هن هم هن هم هن هم هم هم مض مس هم هم هز 


کک الي کک لی تی انی انی انی ھی نی انی ي نی مي انت مي مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي اي مي مي لي دي کې لي دي کې لي دي مي لي اي لي لي لي انی کې لي نی کې لي اي کې لي لن کې لي اي کې لي لی مي مي انی مي مي هي همي خي هي شر 








و ف و مم عمد م م م ن امام مم ماع عامممماممممممامعا نع مممھممممھم مم ممم عم مع م مممممتمم متمم مد مهاه و هو 








Dim Number1 As Integer 

Dim Number 2 As Integer 

Number1 = 5 

Number2 = Number1 
من النوع1 ©1218 ثم تم تخصيص القيمة المجردة ( 5) للمتفر‎ Nun و ۲2ء‎ ۷٧761 ثم الإعلان عن متغيرين هما‎ 


1 و ټم تخصیص قيمة المتغير 511111111 الى المتغبر 2 ۱٧٧1176‏ 





Dim Name As String 
Name = textbox1. Text 


ثم الإعلان عن متغبر 71212 من النوع 5111115 ثم نم تخصيص القيمة من الخاصية )1 لأداة التحکم 0×1(ط)×ع) 





Dim Number As 6 
Number = 7 
Number = Number / 3 


ثم الإعلان عن متغبر 711112261 من النوع 511251 ثم تم تخصيص القيمة المجردة 7 للمتغبر 7711111121 ثم تہ إعادة 
عملية التخصيص للمتغبر Number‏ من خلال تعبير( Expression‏ ( وهو Number/3)‏ ) 


بمكل الإعلان عن المتغير و تخصيص قيعة له اثناء الإعلان فى خطون واحدت 





Dim Number As Single = 5.6‏ 
تم الإعلان عن متفير 711112161 من النوع ©5181 وتم تخصيص القيمة 5.6 أثناء الإعلان عن المتفير ۷٧01176۳‏ في 


خطوة واحدة. 1 





2 يمكن التخصيص للمتغير ١‏ ت 1721121165 أثناء الإعلان عنها أو في مرحلة لاحقة. 

= يمكن إعادة التخصیص أي عدد من لمر ت ولذلك أطلق لفظ المتغيرا ت لان قيمها يمكن أن تتفیر أثنا 

2 علامة = لايقصد بها التساوي الحسابي وإنما يقصد بها علامة للتخصيص كما بالمثال 1+×-× 

حيث ( ×) الموجودة بالطرف الأيسر تمثل الخزن و ( × ) الموجودة بالطرف الأيمن تمثل القيمة حیث اذا افترضنا أن 
قيمة (< ) تساوي( 5 ) إذا بعد عملية التخصيص يصبح المتفير ( × ) يساوى( 5+1 ) أى ( 6 ) 

















الفصل الدراسى الثانى 
هښ هج هي جز هس مي جح هل هن هل هل هن ع ثح هم ثح هل هم هي هس حجن خخ مم هم هم هم هرن هم هم هم هم هرن هم هم هم هم هرن هن همي مس هز 


حا 


اع ھی يج لی لی انی انی انی لی انی انی اي نی مي انی مي مي انت لی مي مي لی مي مي اي مي خي اي مي خي اي مي خي مي مي خي لي دي لي لي دي کې لي اي مي لي اي نی لي لي انی اې لي نی اې لي اي انت لي اي کې لي اي کې اي اي مي انی اي مي مي همي همي خي هي شر 
پل لل لل لعل يل یل یل :2 لل یل یل یل لل یل لل لل لل لل لد د د د د د پ ۰ه ید ۸ رڅ ره رڅ ره هه هه 














NNN,‏ وح وحوح و00[ [ 1 [ز 1 1 1ز5>50001000000010011010011010121ش 
ذكرة النور د : للصف الثالث الاعدادى 


Private Sub Buttonl Click (ByVal ser 
Dim U Hame As String 


ییک کک ا کی ار 

17 ن 

Dim U 8 0 As Date ريخ المیلاد‎ 
شیب شی‎ 


020 U Gender As Boolean النوع‎ 


Dim UL F As Integer د‎ ٠ عدد افراد الأسرة‎ 
Lnd Sub 


جملة التخصيص 57 الخاصية أداة التحكم 


ز108 
TextBox3L‏ 


یں ہے التخصيص كما هو موه 





221 ج122 ته‎ Sub Buttonl ات ٢ب ظظ) عات لالا‎ sender As Syster 
Lim لا‎ Mame As 51-3211 
Lim لا‎ B Û As Date 
Lim لا‎ Gender As Boolean 
Lim لا‎  F As Integer 


سا لت 1۔1 دہ تا جدت Hame = ٦‏ لا 
Text‏ ۔ ے سرن نل اعےت 1 = لا تظ لا 
کاحعععاتت ې للا . ١ ١‏ ت: ٠٢)‏ نظت 22131 TF‏ 
Gender = True‏ لا 
IF‏ 31 1.11 
Checked False Then‏ . ات ٠٢‏ تناخات 11 Ra‏ د لا 


Gender = False‏ لا 
Ena IF‏ 
Tet‏ ۔ث سان نلا غېت لل = FE‏ لا 
Ena Sub‏ 


۷ 


تم اختبار الخاصية 1٥:٥٤٥‏ لأداة التحكم 11201101301160121 باستخدام جملة 11 وسوف يتم شرحها 
لاحقا . فإذا كانت الخاصية Cec) ٤۵‏ قيمتها 1۳٠‏ يخصص للمتفير (0٥‏ القيمة ©1101 أما 
اذا كانت العكس يخصص للمتفير 7600067( القيمةء1"215 





الفصل الدراسى الثانى محم 
يب لحب شی می ال ال لی لی لی لی ال و O O O O O O O O O‏ نايب انی انی نی انی انی انی نيب O O a O‏ انی انی انی بي بيب يب بي گی ای يي و وی وی يي ير 


حا 


کک یھی لی لی انی انی انی ي نی انی انی نی اي کي مي مي مي مي مي مي مي مي مي اي خي مي اي مي خي اي مي مي اي مي خي لي دي لي لي دي کې لي اي کي لي اي کي لي لي انی اې لي نی کې لي اي کې لي اي کې لي اي کې لي لی کي انی انی مي مي همي همي خي هي شر 
پل لل لعل لي یل یل لل یل یل یل یل لل یل لا لل يل رلا لا لن نل د د د د په د د ۸ رڅ رر ره رر رڅ ره هه هد 


او مقعم ممه ممم م م ھھھ مممام عم م ھھھ مھ ھھھ م ھھھ ھف مم مم ھھھ د له ع ل مداه اعام مام نمه موو وو 


لتعديل نافذة النموذج لتظهر كما يلي وذلك لعرض قيم المتغيرات في مربع العنوان 





ا تسجيل مستخدم جديد - 


الا سم یاسمین تامر یاسہین تاشر 
٥۔٭٦/٦۷/۱ء‏ 
False‏ 
5 
تاريخ الصلاد ٧-١١ن ٧...‏ 
النوع ذكر 3 انٹی 
| عدد أقراد الأسرة 6 ۱ 


: قم بإضافة أداة تحكم عنوان 5 1,211 كما يلى‎ -١ 


لاس سجیا تخذم جنید 


الا سم کل ها 





النوع دكر انتی 


عدد آقراد الأسرة 


"-اضبط خصائص الاداة 5 1.211 كما هو موضح بالجدول 


القيمة الخاصية 


سم سر يي 
BorderStyle FixedSingle‏ 





الفصل الدراسى الثانى 
هښ چک کي صص ص ص ص ص ص ص ص ص ص هم هن ص هم هل هم هس همي 0 


حا 


کک کي کک يي انی انی انی اھ نی کي انی نی مي انت لی مي کي مي مي مي اي مي مي اي نی خي اي انی خي اي مي مي مي مي کې لي دي کې لي دي مي لي دي نی لي اي نی اې اي انی اې لي انی کې لي لن کې لي اي کې لي اي کې انی لی انی مي اي مي مي همي همي خي هي شر 
پل لل لل لل یل یلا یل لل یل یل یل لل یل یل یل لل لعل یلال لل لا لال لد د اه ده ۰ه هڅ رر ره رڅ ره هه هه 











و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 





۲- افتح إجرا ء الحدث بالضفط ]1ا٣‏ _ على الزر ”تسجیل,” 
-٤‏ اضف سطر الكود التالي في نهاية الاجراء 


Private Sub Buttonl Click (ByVal sender As System. ,ناص وطن‎ ByVal 
Dim U Name As String 
Dim نا ظ لا‎ As Date 
Dim U Gender As Boolean 


Dim U CC F As Integer 
U _ Name = TextBoxl. وم ې‎ 
UB .وط1 = لا‎ 167 
If RadiocButton1l . Checked = True Then 
U Gender = True 
End If 
11+ RadicsButton1l . Checked = FalsÊ Then 
U Gender = False 
End If 
UCL F  1ع‎ 5105.1 مأ‎ 


۶۶ .Labe1l5.Text = U Hame ع‎ vbCrLf ع‎ U 8 ٥ & vbCrLf & ا‎ 
U Gender ےغ‎ vbLrLî یچ‎ UC EF 


نخصيص فيم للمتغيرات 


Me.Label5.Text = U_Name & vbCrLf ٢ U_B_D & vbCrLf & نا‎ _ ۶٤1٣ &_ 
vbCrLf & U_C ٢ 


-١‏ الكود السابق عبارة عن أمر تخصيص مجموعة متغيرات كقيمة للخاصية ١١×٤‏ لأداة التحكم 5 1,211 حيث توجد 


امتغبرات على يمين علامة ( = ) إذن فهى القيمة 

) & ۲٢) ٤٢.٢ یفصل بين كل متغیر والآخر ( ک‎ ٢ 

؟- علامة ( معامل الربط) ( & ) تستخدم للربط بين النصوص. 

-٤‏ الكلمة المحجوزة 710-111 تستخدم لإضافة رمز مفتاح الإدخال وإنشاء سطر جديد 

©6006 تستخدم علامة ( _ ) حتى يمكن كتابة سطر الكود على أكثر من سطر في حالة إذا كان سطرالکود‎ -٥ 
٠06 طويل بعض الشيء وذلك للتنظيم وتسهيل عملية قر ا ءة الكود‎ 

-٦‏ كلمة ۷1 من الكلمات المحجوزة تعبر عن نافذة النموذج ۷0٢٦٦‏ الحالية. 





الفصل الدراسى الثانى 
هښ هښ هس هي هي هس مي هل جز هل هن ع هل هن هم هم هنز عن ثح هل هل هي هس هي مم مم هي نحن هم هم هم هي هرن هن هم هم هم هرن هم هم هم هم هرن هن هم مس هز 


حا 


اح یھی الي کک لی تی انی نی انی ابی انی کې انی نی مي انت لی مي انت لی مي مي اي مي انت اي مي مي اي مي خي اي مي خي مي مي خي لي دي کې لي دي کې لي دي کي لي اي کي لي لي انی انی لي نی کې لي لن کې لي اي کې لي اي انی اي لی مي مي انی مي مي هي همي خي هي شر 
پل لل لعل لل یل یل یل لل یل یل یلیل یل یل یل يل يل يي ري رلا ري يي ري يا ري هن نا اه دد هه 7 یڅ ره ره رڅ ره هه هه 


. اضفط على ( 175 ) من لوحة المفاتيح ( لتشفيله من فيجوال استوديو)‎ -٢ 
: ونملأ بيانات استمارة التسجيل ثم نقوم بالنقر على مفتاح ا كما هو موضح‎ 


و تسجیل, مستخدم جنین ح 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NN NNN NNN NNN, 
ذكرة النور د : للصف الثالث الإعدادى‎ 





Windows ۲ ۶ : . (Start Debugging ( اخٹر‎ (Debug ) من قائمة‎ ١ 
الضفط على أيقونة ( 10۷ ۳31 ) من شريط الأدوات . ف حاه هه‎ -٢ 


حا 


پل لل لل لل یل یلا یل لل یل یل یل لل یل یل يل يل يي رلا رلا يي رل هد اه د 7 هڅ ره ره رڅ ره هه هه 





الا سم یاسمین تامر یاسمین تامر 


بن + ٧۷/١ ٣/٢٢‏ 
False‏ 
0 
تاريخ الميلاد T+ ۳٣-٧‏ 
التوع ده اتک 5 
رت و ا وون العنوان 5 ا 1.21 
عدد آفراد الأسرة 0 


-١‏ توفر لنا لغة [۱۷۱۰. ١17151121 1351١‏ امكانية كتابة ملاحظات او تعليقات حيث تساعد القارئ على فهم وتوضيح 
الاکواد المكتوبة في نافذة الکود ٣٥۸۹٢ ٧۷۱00‏ و يمكن الرجوع اليها داخل نافذة الكود 

"- يتم كتابة اللاحظات في نافذة الكود C04٤٩ ٧٧۷٠00‏ باستخدام الكلمة 1121/1 أو العلامة (' ) 

؟- كل ما يكتب بعد هما لا يعتبر أكواد ويهمل عند ترجمة الأكواد ©ع00') بواسطة مترجم اللغة 011111161 


Private Sub Buttonl Click (ByVal 1 As System. بے اتصلا‎ ByVal e As Sy 





118۸4 الاعلان عن العتقیرات‎ 
Dim UserName As String 

Dim UserBirthDate As Date 
1113ل[‎ UserGender As Boolean 
۲03170 UserNoFamily As Integer 


تغصيص قيم لههدة الستغيرات REM‏ 
ات 1 1× ن تا ×ت٦] UserName = Me.‏ 
.ا ے1 ۔ معدت کا جرے 1 UserBircthDate = Me.‏ 
IF ۲۵۸٢٦13 013:11 . Checked = True Then‏ 





Usertender = True 
2.13 

False‏ = رع ترح 0ح ج5ا 
End If‏ 


UsercNoFamily = Me. TeEETBOKS . 1221 





استخدام سك ت٦‏ العتقعیر أنه . 
تت اطع اط 5 UserBircthDate‏ ۓٗ ہج اط ۓغۓ He. LabelS. Text = UserName‏ 
7 1ت3 ات۲ ۓ کت لا 2 لاع اط UserGender ٢‏ 


Enid Sub 


الفصل الدراسى الثانى 


هښ ا هم هم هن هم هن هم هن هم هم هم مض هم هم هب همز 





.اع انی اٹ کک لی يي انی انی ھی انی انی اي نی مي انت لی مي انت لی مي مي لی مي مي اي مي مي اي مي مي اي نی مي مي مي مي لي دي مي لي دي کې لي اي نی لي اي نی لي لي انی کې لي نی کې لي اي کې لي اي کې لي اي انی اي اي انی مي انی مي مي همي همي خي همي شر 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
ذكرة الور د للصف الثالث الإعدادى‎ 








نطاق المتغبرات : 
یحدد نطاق” مجال " امتغبر اى الأماكن السموح بها استعمال المتغبر داخل البرنامج و تنقسم المتغبرات من حیث النطاقات اوالمجالات الى 


٠ ۰ 


نوعان 





: )Local ٧۲۵۶1317165 ( المتغبرات المحلية‎ - ١ 

وهى متغبرات يتم الاعلان عنه داخل إجر ا ء حدث معين مثل الحدث 13106011-111 و ينفذ داخل هذا الاجراء 

فقط ويفقد قيمته اذا ما تم استعماله خارج هذا الاجراء مثل الحدث:11)-2 110166011 

- المتغبرات العامة " الشاملة ” ( 172112115 21021)) : 

هی متفیرات يتم الإعلان عنه خارج جميع الاجراءت فى نطاق التصنيف 017073" وهى يمكن استخدامها فى كل اجراءات البرنامج 
ولا يفقد قيمتها عند انتهاء الإجراء المستخدمة به 
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الجدول الاتی يوضح العمليات الحسابية التی يمكن اجراؤها فى ]771.11 


قسةعدية | باق اسما 
سيك || - | .| / | مس آم 


قمنا باجراء بعض عمليات التخصيص ومنها تخصيص تعبير حسابى 








فمثلا: ما هوالناتج النهائي للمتغير ضفي التعببر التالي : 


A‏ 3 جد ( ص۸ 
الجواب الصحيح ليس ( )3١‏ بل )٤١(‏ ويرجع ذلك لأن هناك أولويات عند تنفيذ العمليات الحسابية فقد تم إجراء عملية الضرب أولا ثم 
تم تنفيذ عملية الجمع بعد ذلك, وهنا نجد أو أوليات تنفیڈ العمليات الحسابية هي : 


a Nw Ke ۱۱۱ ٣١١ | اه‎ 4١١ زه لها شق‎ 





جميع لغات البرمجة ہما فيها 71.111 قد وضعت قاعدة تسمی قاعدة أولويات تنفيذ العمليات الحسابية لتحديد أولوية تنفیڈ العملية 
الحسابية وفى هذه القاعدة يتم ترتیب العاملات المختلفة ترتيبا تنازلیا حسب أولوية تنفيذها عند اجتماعها فى عملية حسابية واحدة 


قمنا بإجراء بعض عمليات التخصيص ومنها تخصيص تعبير حسابي مثل 





4 * 3 +2 - ثم 
أيهما ينفذ أولا عملية الضرب أم عملية الجمع ؟ 
يتم تنفذ عملية الضرب اول ثم يجمع الناتح بحيث تصبح النتيجة(14 ) 
ولكن إذا وضعنا أقواس بهذه الطريقة 4* (2+3)- ۸ ینفذ ما بداخل الاقوس أولا فتصبح النتيجة ( 20 ) 


الفصل الدراسى الثانى محم 
يب ای لی ال لی ای لی لی لی ٠ی‏ ا لو کی O O O O O O O O‏ انی انی انی انی انی انی نی انی انی انی انی انی انی انی انی انی انی بيب يب انی گی یں وی و وی aC aC aN‏ 


حا 


کک جح یھی لی تی نی انی انی لی انی کي ي نی مي انت لی مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي مي مي مي لي دي کې لي دي کي لي دي کې لي اي کي لي لي انی اې لي نی اې لي اي کې لي اي کې لي اي انی لي لی انی انی انی نی مي همي همي مي هي شر 
پل لل لعل لل 2 :1 یلا یل یل یل یل یل یل يل لل یل یل لل لعل لال لن نن د د هه ۰ه د ۸ رڅ رر ره رڅ ره ره هه هد 


.ههه همه مهمعد م م م ع ھم 0 عامممماممامممماعما ھھھ مھ ھھھ ھھھ م ماھ ع متمم مد مهاه و موو وو 


> 


پل لل لل لل یل یل یل لل یل یل لل لل لل لل لا لا لل د د د په د رڅ رر ره رڅ هه هه 


ل- څ 


٧٤د‏ العصلیات التسابیۃ و فقا لترتیبے الاتى 
۱ العمليات التى بين الاقواس ( الداخلية اولاثم الخار: جية ) 
۳ عملیات الضرب و القسمة ( الأولوية من الیسارثم اليمين ) 
.٤‏ عملیات الجمع والطرح ( الأولوية من اليسارإلي ليمين) 
۸ ی۸ 





.١‏ فى حالة وجود أكثر من عملية لها نفس الأولوية كالضرب والقسمة اووالجمع والطرح فان ترتیب تنفيذها يكون من 
الیسارالی اليمين . أما إذا تداخلت الأقواس (کان يكون هناك أقواس داخل أقواس ) فان الأقواس الداخلية يتم تنفيذ ما 
بينها أولا 

65ص : فى حالة وجود عملیات حساب باقى القسمة فانها تاتی ګګ الضرب والقسمة و ا الجمع والطرح 


من الضروري مراعاة أولويات تنفیڈ العمليات الحسابية عند إنشاء تعبيرات 1211551011 تستخدم في جملة 


التخصيص ]46551511111211 هل" ے الال ال و٢۷‏ لان النتيجة ستتفیر في هذه الحالة دون 


ظهور أي رسائل خطأ 








ما هى نتيجة تنفیڈ العمليات الاتية بافتراض القيم التالية للمتغيرات :- 
7-4 3۔٣٢‏ 5-2 
A) X*(Y+1)‏ 
B) Y^X*X+7Z*3‏ 


الحل خی 
١‏ - نستبدل کل متغير بقيمته 
(1+ 2*)3 
٢‏ حساب ما بداخل الأقواس أولا 
(4) * 2 
"- تنفيذ عملية الضرب فيكون الناتج ( 8) 


(B 
نستبدل كل متفبرہقیمته 4*3 +2 +2 د‎ .١ 
0 * 2+ 4*3  الواسالاباسح يتم‎ ۲ 
18 + 4 * 3 تنفيد عملية الضرب التى في اليسار‎ ٣٢ 
18 + 12 تنفيذ عملية الضرب التى في اليمين‎ . 
30 د. تنفيد الجمع ليكون الناتح‎ 


الفصل الدراسى الثانى 


هښ ا هم هم هن هم هن هم هن هم هم هم مض مس مض هب هز 


کک کي کک لی نی نی انی انی ھی انی انی اي نی مي انت لی مي لي لی مي مي مي مي مي اي مي خي اي مي خي اي نی مي اي مي مي لي دي مي لي دي مي لي اي کي لي اي کي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي انی لي لی انی مي اي مي مي همي همي خي هي شر 


.ههه همه مم عمد م م م ا مم امم ام ما ی ھھھ مھ ھھھ م مھ ھھھ مم مم ماھ ع ماھ م مد مهھ ھام همام نه شي 





Errors كاك‎ 


لابد من الإلتزا م بقواعد لفة البرمجة المستخدمة حتى تتجنب الأخطا التي قد تتسبب في ظهوررسائل خطا أشنا كتابة الكود 
6ع أو عدم تنفين الأوامر أو الحصول على نتائج خطا, وقد لا يتم تشغیل البرنامج, وهناك ثلاثة أنواع من الاخطاء 





۰ ۰ ۶ 1 ۰ ۹+ 4ه د 
اخطاء لغوية (الإملائية والنحوية) اخطاء منطق ه3 1/۳٣:‏ 1.0816 اخطاء انناء التشغفیل 
Runtime Error Syntax Errors‏ 


Errors Syntax (HoH oo) الو رغ‎ ob = 


۸ و 
تھے 


إلى 4 


هى اخطاء فى 1 او التي تحدث عند كتابة الكود ٠٠0٥‏ بصورة غير سليمة كما هو موضح بالامثلة الآتية: 








مثال 


Din x As Single 


ثم الإعلان عن المتغبر × ولكن كتبت كلمة 51٣"‏ خطا 
Const x As 6‏ 


تم الإعلان عن الثابت × ولكن لم تخصص له قيمة أثناء الإعلان 


کد لالب على الأنواء الاصلالی و الوب 





وهذا دسر سیت حيث يظهر أمامك مباشرة أثناء كتابة الكود, ويمكن التغلب على هذا النوع من الأخطاء 





5 ض الشكل العام لای امر اثناء كتابته 
٢‏ لا تسمح بوجود أي خطأ من هذا النوع وتظهر خط متعرج تحت الخطا 





كود حساب مساحة الدائرة الصحيح 
Dim Radius As Single‏ 
Const x As Single = 22/7‏ 
Radius = TextBox1. Text‏ 
Label2.Text = x * Radius ^ 2‏ 





الفصل الدراسى الثانى 
هښ هج مي جز هس مي جز هل هل هن ع هل هن ع هم هن عن ثح جز حنج هس هي نج نحن نحن هم هم هم هن هن هم هم هم هم هرن هن هم هم هم هرن هن هم من هن هز 


حا 


کک کک لی لی انی انی انی ابی انی کي انی نی مي انت مي مي انت مي مي مي مي مي مي اي مي مي اي مي خي اي مي مي اي مي خي لي دي مي لي دي کې لي اي نی لي اي نی لي لي نی اې لي نی کې لي اي کې لي انی کې لي اي انی لي لی مي مي انی مي مي هي همي خي همي شر 
پل لل لعل لل یل یلا یلیل یل یل یل یلیل یل یل یل يل يل يي رلا رلا يي لا را د دد ۰ د د د ۰ رڅ رر ره رڅ هه هه 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 








فإذا افترضنا أن كتابة الكود س كما بالشكل الآتي Dim Radius As Single‏ 


Const x As Single = 22/7 
Radius = TextBox1. Text 


12212. Text = x + Radius ^ 2 


"- سوف يعطى البرنامج نتيجة ولكن النتيجة ستكون خطا او بخلاف الواقع لانه سوف يتم الجمع بدلا من الضرب. 


1,021 ۲۷۷۰٢ الاتطء المنوطقفزق‎ KE a 


1,051 11-1201 يجب مرا جعة الكود المكتوب جیدا للتاكد من خلوه من الاخطاء المنطقية‎ -١ 





؟- اختبار ناتج تشغیل البرنامج على بيانات سبق التاكد من صحتها حتى يتم التاکد من عدم وجود أخطاء منطقية فاذا تساوت 


نتيجة البرنامج مع النتائج المعروفة ( المحسوبة مسبقا )كان البرنامج صحيح و خالى من الاخطاء 


Runtime Error ۱۳71111ق‎ ١ د٥۱١‎ | وه رجہ‎ 





لها 


هى الأخطاءالتي يتم اكتشافها أثناء تشغیل البرنامج ونجدها غالبا في الأكواد C٠1٠١‏ التي يتم فيها جملة تخصيص 





۲ھ 


3 


6 لندل: 





.١‏ تحدث مثلا عند الاعلان من النوع 1١71©‏ و تخصیص قيمة له اقل او أكبر من مدى نوع البيان المسموح به 


(اى قيمة اقل من (0) واكبرمن ٥٥٢(‏ ) فتظهر عند التشفيل رسائل خطا مفادها ان القيمة خارج حدود المتفير) 


۰ 
چس 


تحدث عند تخصیص قيمة نوعها يختلف عن نوع بيان المتغير أو الثابت أو الخاصية ولا يستطيع مترجم ۳ 0100116) 


اللغة تحويلها لهذا النوع 1۲6 


الفصل الدراسى الثانى 
هښ هج مي جز هس مي جح هل هن ع هل هن هم ثح هم ثح هل هم هي هس هي نج چم هي نحن هم هم هم هي هرن هم هم هم هم هرن هم هم هم هم هن هن هم من هن هز 


حا 


.ات یھی لح کک لی لی نی انی انی ابی نی کې ي نی کې انت مي مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي مي مي خي لي دي مي لي دي کې لي اي کي لي اي کي لي لي انی نی لي نی کې لي اي انت لي اي کې لي اي کې لي لی انی انی انی مي مي همي همي خي هي شر 
پل لل لل لعل يل یل یلا :2 لل یل یل یلیل یل یل یل يل يل يي رلا رلا ري يي لا را د د ده د د ۰ د ړڅ رر ره رڅ ره هه هه 


وموم و مهمعد م م م عم مم مھ امم ام ما ھھھ ھھھ ھھھ مھ ھھھ ھم مم مم عممعم مممممتمم مھم ھھھ ھھھ و موو وو 





-١‏ قم بإعداد نافذة النموذج كما هو موضح بشكل -٢‏ أكتب الکود ٥0٥‏ ) الآتي لدی إجراء الحدث 





111 )للزر'' مجموع 


Private Sub Buttonl Click (ByVal sender As لپا برنامج حساب التنيجة ظ اذ‎ 
الإعلان عن متغير لكل مادة'‎ 
Dim arabic As Byte 
Dim computer As Byte 


تخصیص مدخلات | لمستخدم لكل تقر ' 
arabic = 12221850531 . Text‏ 
computer = ۲۶3:600 . Text‏ 


 - >> 7‏ ل 
computer‏ + ت1ط8ج38 = Label3.Text‏ 
End Sub‏ 








تم الإعلان عن متغبرین 01ا33 ۹ و ) computer‏ لهما نوع البيان ©1721 والقيم التي يمكن أن يستقبلها تبدأ من 
صفر وتنتهى عند 255 وهذا يعنى أنه يجب على مستخدم البرنامج أن يلتزم بحدود تلك القيم وفي حالة مخالفتھا يحدث 


ههه ¢ 


خطا أثناء التشفيل 1411211121 عند إجر ا ء التخصيص لهذه المتغير ا ت 17213121165 كما يظهر في الحالات الآتية: 





9 برنامج حساب التتيجة ٣۲۷‏ ٴ اه نوا 





1"5 قم بعمل 10111551115 :5121 وذلك بالضفط على مفتاح‎ ١ 

ثم قم بالنقر على مفتاح'' مجموع''دون إدخال أى بيانات 

لصناديق النص ×0 65)×ء1 0 
- تظهر لنا رسالة الخطا الآتية أنه لايجوز تحويل القيمة النصية الفارغة 
"ای النوع 1571 وحدث ذلك بسبب أننا لم ندخل درجة اللغة العربية 
رسالة خطا أثناء (وقت) التشغيل بسبب عدم ادخال أي قيمة 










تعخصنيصس مدخلآت الهستتك. 


| لكل متغير' 











computer = 1 دلصتظط ندع‎ . Tex 
كلك‎ InvalidCastException was unhandled 





> سح کې ‌ يو - - 28و 7 7 ج‎ : ِ 
ا نيص تاتج مجموع المتخيرن‎ conversion from string "" to type 'Byte' is not valid. 
Label3.Text = arabic ١ 


الفصل الدراسى الثانى 
هښ هښ هس هي هي هس هي هل هل هل هن هل هل هن هم هم هن هم هي هن همل هي هي هس مم مم مم رصم ہس مس مم مض مض من مس مم 


WWW.CRYP2DAY.COM 
مذكواتك جاهزة للطباعة‎ 


حا 


ای ای لح کک لی لی انی انی انی ابی نی کې انی نی مي کي مي مي انت لی مي مي اي مي مي لی مي مي اي مي خي اي مي مي اي مي کې لي دي کې لي دي نمي لي اي کي لي اي کي لي لي انی انی لي نی کې لي اي کې لي اي کې لي لت کې لي اي انی مي اي کي مي همي همي خي هي شر 
پل لل لعل لل یل یلا :2 لل یل یل یل لل یل لل لل لعل لا لل لل د د د ۰ه د د ٨‏ هڅ رر ره ره رڅ ره ره هه هد 











و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


الحالة الثانية ` 


قم بإيقاف التشفيل 101115511218 51607 وذلك بالضغط على أيقونة |090دوددء0 |5tor‏ لعمل Start Debugging‏ 
وذلك بالضغط على مفتاح ۴5 ثم قم بالنقر على مفتاح مجموع بعد إدخال قيمة نصية( خمسة عشر درجة )لصندوق النص 
TextBox‏ كمبيوتر |[ خمسة عشر 

تظهر لنا رسالة الخطا الآتية أنه لا يجوز تحویل القيمة النصية'' خمسة عشر درجة ''إلى النوع ©1571 حدث ذلك بسبب إدخال 
قيمة نصية بدلا من قيمة رقمية تغخصيص مدخلات المستخدم لكل متغقير' 
رسالة خطا أثناء وقت التشغيل بسبب إدخال نص. 











computer = 12280522 . Text 





not valid‏ 5ا to type 'Byte'‏ "خمسة ععشر درحة" Conversion from 5۲٢٣۹‏ أنيص تاتچ وھ المتقيرن' 


٣ mlm ٦ ےہ عبسو پس ۷۴ له‎ mmm msm ٢ ؛.‎ 





اقا 


قم بإيقاف التشغيل Stop Debugging‏ بالضفط على أيقونة |5:دودء5 |5top‏ لعمل Start Debugging‏ 
وذلك بالضغط على مفتاح ۴5 ثم قم بالنقر على مفتاح مجموع بعد إدخال قيمة اكبرمن ٥٥٢‏ لصندوق النص×0 ۲۶×۲8 


رسالة الخطا الآتية نتيجة إدخال قيمة أكبر من الحد السموح وحدث ذلك بسبب إدخال درجة الكمبيوتر أكبر من 255 اى القيم 


حارج الحدود المسموحه تخصفيص ھدخلات !! تغدم لكل هتخير" 
ںا ئ" Text‏ . ۹ ایحا = AFraAbIC‏ 


300 سوه ومد سه په ھچ ھا 


ټی + abel3.Tezt = arabic‏ 
ادو تا 








۲٣۰۲۲۷ operation resulted ۱۳ an overflow.‏ ۲۲۴۲ھ 


اع ای کي کک لی نی انی انی انی ي انی کي ي نی کې کي ي مي انت لی مي مي ي کي مي اي کي مي اي کي خي اي نی مي مي مي مي لي ي کې لي ي کي اي اي کي اي اي کې اې ي انی کې لي نی کې اي ي کې لي انی کې لي ي کې اي اي انی انی ي نی مي لی اک خي هي شر 


كيفية التغلب على أخطاء القشغیل Runtime Err)‏ 





Try / Catch مجموعة أوامر‎ .١ 
التحكم في مدخلات الستخدم بحيث نوفر للمستخدم الأدوات 01111015 ) مع ضبط خصائصها ۳006765 التي من‎ ٢ 
خلالها يقوم المستخدم بإدخال البيانات الصحيحة دون غبرها‎ 


الفصل الدراسى الثانى 
ې هي هي هي خر خر هي هي المي هي هي الي ي هي هي الي ي ي هي ي ي ي هي کی ہی خی هي هي هي ي خی لبي هي هي ي هي هي الي ال جي هي جي جي مر مع .مم 


> 


6000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000090000000000000000000000000000000000000000000000 





و ف و هاا ھم منم مه ع امم امم مداخ امه مم ماع مامتامع مم مم ممممھم مم مم 6 ا مھم مھ مدا ھھھ همام اه همو وو 





ناقش مع زملائك وتحت إشراف معلمك محتوى الشاشة التاليةء والجدول: 


ال در باتهم اسر 
تاریخ السلاد أيأ-؟ پآ تی a‏ 
الموع كر ټ انیس 
عدد اأعراد الا سرة . 


01185131861 حرفى‎ 
TextBox 


TextBox 


عدد أفراد الأسرة رقمي Numeric‏ 


RadioButton 





الفصل الدراسى الثانى 
هښ هج هي جز هس لحن جح هل هن ع هل هن ع هم هن هم ثح همل حنج هس حنج چي چم هي نحن هم هم هم هم هرن هم هم هم هم هرن هن هم هم هم هرن هم هم مس هز 


حا 


کک کي کک لی لی انی انی انی بھی انی انی انی نی مي انت مي مي انت مي مي مي لی مي مي اي مي خي اي مي مي مي مي مي مي مي مي لي مي کې لي دي کې لي دي کي لي لي کي لي لي انی کې لي نی کې لي اي کې لي اي انی لي اي کې لي لی انی انی اي کي مي همي همي خي همي شر 
پل لل لعل لل :1 یل یلا :2 لل یل یلا یل یلیل یل یل یلا یل یل یل یل یلیل یل یل یل یل لل یل یلا يل يل یل يل یل یل یلا یل لي رل لا يل يل يي وي یل یل ٥ ٥‏ 


"قمعم مه ع همهن ما عم اعم امم مع م م هه امه ات ل همده م ههه عه شه امام ماهم هه كو موه قو 





تدریب(٢):‏ اکمل الجدول مستعینا بالشاشة التالية: 


په بطاقة طالب - لا کر 


رقم الجلوس 10001 
اسم الطالب رامي تامر 


تاريخ المیلاد 18/9/2008 
المجموع الكلي و39 
حالة الطالب ‏ © ناجچح نا رق 





په هي ا هم هن هم هی هم هم هن هم هن هم هم هني هم هن هم هن مض هب هز 





الفصل الدراسى الثانى 


حا 


۱٠ا‏ ای لح یھی لی لی انی انی انی ھی نی انی ي نی مي کي لی مي انت لی مي مي اي مي مي اي نی خي اي انی خي اي نی مي لي مي مي لي دي مي لي دي کې لي دي کي لي اي انی لي لي انی انی لي نی کې لي اي کې لي اي کې لي اي کې لي اي مي مي انی مي مي همي همي خي هي شر 
پل لل لعل لل یل یلا :2 لل یل یل یل لل یل یل يل يل يي ري رلا ري يي ري رلا رل" پا را پل له 7 7ه 777 ره ره ره رڅ ره ره هه 


سو سو وھ امه م م م م ا هه مه م م مه ههه هم ههه م مم همد هه معام ا ےہ 





أؤلا: ضع علامة (”) امام العبارة الصحيحة أو علامة (×) أمام العبارة الخطأ لكل عبارة مما 


ا ۰ بالتعامل مع أنواع مختلفة من البی 







نا تصنف قيمة اسم الطالب ضمن البيانات الرقمية المتنوعة. 


ا فا انكر" أم "أنثى" ضمن البيانات المتنوعة "المنطقية". 





الفصل الدراسى الثانى ١‏ 
ا 2202227 101 555909070222221 


کک کک لی لی انی انی انی ابی نی کي انی نی مي کي لی مي لي لی مي مي لی مي مي مي مي انی مي کي مي اي مي مي مي مي مي لي مي کې لي دي کي لي اي کې لي اي انی کې لي نی کې لي نی کې لي اي کې لي اي کې لي اي کې لي اي کي مي انی کي يي همي همي خي هي شر 


.ههه همه م معد م م م عم ھم مم ماع ع امم مم ھھھ اھ مھ مھ ممھم مم ممم عم ع ماهم همد مهاه هام م مام نه همه هي 


الاعلان عن المتغيرات مسألة شكليةء لن لغة ٢۸۴۔۷‏ تتعرف على المتغيرات وتحدد 


نوعها تلقائيًا. 
الجملة التالية "©5117 ۸8 ۳۴-٥8۱6‏ 77أ0]" للإعلان عن متغير باسم 811109 ونوعه 
86 ۔ 

الجملة التالية "511109 ۸5 ۴_٦٥٥‏ ص01" للإعلان عن متغير باسم 8٧6‏ ۳ 


ونوعة 5111110. 





الفصل الدراسى الثانى 
ا PONTOS TTI‏ 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


پا کک لی کي کي انی انی ابی نی انی کي نی کې انت مي مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي مي مي اي مي اي لي ابيب کې لي دي کې لي اي کي لي اي ي لي لي انی اې لي نی کې لي اي کې لي اي کې لي لی کې لي لی کي انی اي کي يي هي همي خي هي شر 


ممم مهمعد م م م ا ھم ع عامممماممامممماعما نامع ممممم مم ھم مم مم ماھ لل ماھ م مد مداه ھام م مام نه شي 


الثوابت في لغة ۷8.۲ عبارة عن مخازن في ذاكرة الكمبيوتر لها اسم وقيمة لا تتغير 
أثناء سير البرنامج. 


الثوابت في لغة ۷8.۸٤۲‏ عبارة عن مخازن في ذاكرة الكمبيوتر لها اسم وقيمة تتغير 


أثناء سير البرنامج. 


الخطأ الذي يظهر أثناء تشغيل أو تنفيذ برنامج ۷8.۸۴١‏ يطلق عليه خطأ لغوي 


. Syntax Error 


الخطأ الذي يظهر أثناء تنفيذ برنامج ۷8.٤‏ يطلق عليه خطأ أثناء التشغيل ۸۷۲ 


. time Error 





ثانيًا: اختر الإجابة المناسبة لإكمال كل عبارة مما يلي: 





أ- رقمية صحیحة ‏ ب- رقمية غير صحيحة ج- متنوعة 
(۲) قيمة أسماء المواد الدراسية يمكن تصنيفها كبيانات: 
أ- متنوعة ب- رقمية غير صحيحة ج- حرفية 
الفصل الدراسى الثانى 


ل م سس سس ہس 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


کک هی لی لی انی انی انی ابی انی انی ي نی کې انت مي مي مي لی مي مي اي مي مي اي مي مي اي مي مي اي مي مي مي مي مي لي دي مي لي دي کې لي اي کې لي اي کي لي لي انی نی لي نی کې لي اي انت لي اي کې لي اي کې لي لی انی مي انی کي مي همي همي خي همي شر 


ھکید مم امم م م م امام امم مھ اممم عم عامماممامم مم مماعما عنم م مھ ھھھ ھھھ م ھھھ د مم ع مھم م كو موه و 





(۳) نوع البيان الشخزن مؤقئًا في ذاكرة الكمبيوتر يحدد: 


أ- حيز تخزبني ومدى قیمتھ ‏ ب- اسم وحیز تخزيني ج- حيز تخزبني وقيمته 
)٤(‏ الصيغة الصحيحة للإعلان عن متغير المرتب 53131۷ هي: 


Dim Salary As Integer = 
Dim Salary As Byte أ-‎ 
Dim Salary As Decimal ج-‎ 


)٥(‏ الصغه الصحیجحھ للاعلان عن متغير العنوان City‏ هي: 


Dim City As String أ-‎ 
Ûim City As Byte ب-‎ 
Dim City As Decimal ج-‎ 
الصيغة الصحيحة للإعلان عن متغير الاسم 1_1131116 هي:‎ )٦( 


Dim F Name As Integer أ-‎ 
Dim ٣ Name As Char بح‎ 
Dim F_Name As Decimal ج-‎ 
الصيغة الصحیحھ للإعلان عن متغير النوع 56106۲ هي:‎ )۷( 


Dim Gender As Decimal أ-‎ 
Dim Gender As Integer ب-‎ 
Dim Gender As Boolean ح-‎ 
الصيغة الصحيحة للإعلان عن متغير الاسم 13:::6 ۴ هي:‎ )۸( 


Dim F Name As Integer أ-‎ 
Dim F Name As Char بح‎ 
Din F_Name As Char ج-‎ 


الفصل الدراسى الثانى 
هښ يج هي صص ص ص ص ص ص ص ص ص ص هم هن ص هم همل هم ص همي 0 


کک کک لی لی انی انی انی انی نی انی انی نی مي کي لی مي انت لی مي مي مي مي مي اي نی خي اي مي خي اي نی مي اي مي مي لي لی لي لي دي مي لي دي نی لي اي نی لي لي نی انی لي انی اې لي انی کې لي انی کې لي اي کي اي اي کي انی انی کي يي همي همي خي وی شر 
پل څل لل لل لل یل یل یل لل یل یل یل لل یل لل لل لعل لل لل لا د ۰ه 7د ۸ رڅ رر ره رڅ ره هه هه 


> 


.لوا ههه همها همهم همهن ماشه م هه مه هم م هه همه مه هاه هاه مه د هه هم مم م ماه همده ا مام نمه دد هي 


> 


پل لل لعل لل یل یلا یل لل یل یل لل یل یل یل یل لل لعل لا لل لل لا لل د ۰ ره 7 رڅ ره ره رد رڅ هه هه 





(۹) الخطأ الذي يظهر بعد تشغيل برنامج بلغة ۷8-۸12 یسمی: 


Syntax Error أ-‎ 
Logical Error بع‎ 
Runtime Error ج-‎ 


)٠١(‏ الخطأ الذي يظهر أثناء كتابة كود بلغة ۷8.۸11 یسمی: 


Syntax Error أ-‎ 
Logical Error بع‎ 
Run time Error ج-‎ 
الخطأ في ناتج تشغيل كود بلغه ۷8.۸01 یسمی:‎ )١١( 
Syntax Error أ-‎ 
Logical Error بع‎ 


Run time Error و‎ 


)٢١(‏ الناتج النهائي للمتغير × للمعادله "4 * 2 + 3 = ×" هو: 


= £ 
سی ٢.‏ 
(۱۳) الناتج النهائي للمتغير ل للمعادله "2 + 4 / 12 - 16 = ۷" هو: 
[- ۳ 
١ =‏ 


1 - 


)٤١(‏ جمله الاعلان عن متغير "5111110 كلل × مانا" تعني الاعلان عن: 


أ- متغير اسمه × ونوعه حرفى 3117۱19 


ب- متغیر اسمه 5111110 ونوغعه 26. 


ج- متغير مجهول ليس له اسم ونوعه 5111110. 


الفصل الدراسى الثانى 
هښ هي يچ هي هج ص ص ص ص ص ص ص ص ص ص هن ص ص هي هي هس هي 0 


کک الي کک کک لی نی انی انی بھی نی کې انی نی کي کي نی مي انت مي مي مي لت کي مي اي نی خي اي انی انت اي نی مي اي مي مي لي دي مي لي دي مي لي اي نی نی اي نی اي لی انی انی لي انی انی لي لن کې لي اي کې لي اي کې انی لی انی مي انی کي يي لی همي خي هي شر 


.ههه همه مم عمد م م م ا مم امم ام ما ی ھھھ مھ ھھھ م مھ ھھھ مم مم ماھ ع ماھ م مد مهھ ھام همام نه شي 





١ ٥(‏ ) جملة الاعلان الصحيحة عن متغير رقمي غير صحیح اسمه ٧۷‏ هي: 
Dim ۷ As Decimal —Î‏ 
ب- As Decimal‏ ۷ 


ہے f = Decimal‏ ه1۱11 
st name —Î‏ 

namê بر‎ 

چو « ٭ Name‏ 

5SCairo —Î 

E Address — 
(Address) س‎ 


)١۸(‏ اسماء المتغيرات التالية صحيحة ماعدا: 





St text —Î 
Tex یی‎ 
_st text —> 
عند الاعلان عن الثايت الریاضي ط نستخدم الكود:‎ )١۹( 
Dim Pi As Single —Î 
Dim Fi As Single - 3.14 بح‎ 
Const Pi As Single ح- 3.14 ے‎ 
عند الاعلان عن ثايت عجلة الجاذبية الأرضية تستخدم الكود:‎ )١ ٠ ( 
Dim و‎ As Single —Î 
Const ون‎ As Single = 9.81 بح‎ 
Dim و"‎ As Single = 9.8] ج-‎ 


(١؟)‏ الاعلان عن متغير عدد أفراد السرة إراİص٣ه0_۴‏ بقيمة ابتدائية ٢‏ هو: 


Dim C Family As Single = 2 أ-‎ 
Const GC Family As Integer = 2 - 
Dim CC Family As Integer = 2 سح‎ 


ت 


الفصل الدراسى الثانى 
هښ يج کي هښ ص ص ص ص ص ص ص ص ص ص هن ص هم هل هم هس همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


> 


اح ی رای لح ی ٤بح‏ ی لی لی نی انی انی ھی انی کې ي نی کي کي ي مي انت لی مي مي کي مي انت اي مي مي اي کي خي اي مي مي مي ي کې لي ي کې لي ي کې لي دي کي لي اي انی لي لي انی اې لي ي کې لي لن کې لي ي کې لي ي کې اي ي کي انی ي نی مي لی همي خي اھ شر 
پل لل لل لعل لي یل یلا یلیل یل یل یل یلیل یل یل یل يل يل يي رلا رلا ري يي رل رل" لد پا په هده 7 7 7 7 7 ره ره رڅ ره هه هه 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 





( ۲ ۲) إذا وجد خطأ فی نتيجة حساب مساحة مستطيل في يرتامجء يعتير هذا الخطأ: 


Syntax Error —Î 
Logical Error — 
Run time Error ~~ 


(۲۳) رسالة الخطأ التي تظهر عند كتابة الکود Byte"‏ كلك × "Dimension‏ يمكن 





Syntax Error —Î 
Logical Error — 
Run time Error ~~ 
: الناتج التهائي للمعاتله " 2 / كلك + 2 12 = للا" هو‎ )٢ ٤( 
حي په‎ ٣ س‎ 12 -1 


(ه ؟) الناتج النهاتي للمعائلة " 2 / (ك + 2) 12 = ل" هو : 





1. 8+ 5 3 
2. )8 + 5( 3 

لاه *16/4+8+6 .3 

4. -1 * 2“ 4 
5.۳ - 16 5 0.5 73 

6. 7-5 +5 -4+ 6 

7. X=(3+7)/2+3/6*2 
8. Y=1+(2+2)^2/4*2 
9. Z=10+3* 3 


10.X - 9 + 9 / 3 / (9 mod ې‎ ) 
11.1 - م16‎ 5-10/) 2 + 3( 
12.7 18/9 0.5/3 
13.۹ =13-3/ 3+2 * 5 





14.۸4 ۸ 2-1:7 ) /) ۸ +2( 

15.) ۸ + 218(/ ) ) + B) 
16.4 + B/ B+C 

5[ * 3 +2 2 4“ (5/)0 * 3 + ۸ ).17 
ژ۸( + 1 * 18.(5 

19.10 / 2 * B*C/2* B/A 

20.۸ + B - 6 + 9 / 3 MOD 4۸ 5 
21.4 1/- 1 

22.- A -C/ -2 
23.-2* 4م‎ / 2 + 3 * C MOD 2 


الفصل الدراسى الثانى 


اع ای کي کک لی تی انی انی انی ابی انی انی ي نی مي انت مي مي انت لی مي مي اي مي مي اي مي مي اي کي خي اي مي خي دي مي خي لي ابيب کې لي دي کې لي اي مي لي اي لي لي لي انی کې لي نی کې لي لن اې لي انی کې لي اي کې اي لی مي مي اي کي مي همي همي خي هي شر 
پل لل لل لل یل یل :2 لل یل یل یلیل یل یل یل يل يل يي رلا رلا ري يي ري ري رل نا پا د د د 7 7 7 777 ره ره رڅ ره هه هه 


ےت 
بح مر خر کې کې خر پر کې کې 007 ې کې ټل ټل ال پل پل پل ې ې کې ې کې ې کې کې کې کې کې کې کې ې هې مم ال هې ې ټل ټل ي هې هې مر مر مر هې هې هې هې ر 
WWW.CRYP2DAY.COM‏ 
مذكراتك جاهزة للطباعة 


حا 


و مقعم ممه ممع م م اما م م مھ ی ھھھ م مم مممعام مم مم مم مممعممعم ھھھ ع ماھ ع ھھھ ماھ مام نه ھت هه ی 


پل لل لل لعل لل یل یل یل لل یل یل لل لل لل لل لعل لا لا لد نا دپ د ۰ه د د ۸ رڅ رر ره رڅ ره هه هه 








كا درست في ان التفرع فى خرائط التدفق هو اتخاذ قرار أو اختیار لتنفيذ مجموعة خطوات معينة أو خطوات أخري بناء على 
سؤال معين فى حالة ان السؤال له احتمالين اواكثر 
گا وسوف تنجد أن كتابة الكودء C٥3‏ الخاص بعملية التفرع ماهي إلا خطوات الحل الخوارزمية41501111:12 مع الالتزام 
بقواعد اللغة المستخدمة وطريقة صياغتها 
= وللتعبير عن التفرع برمجيا 


If conditional Expressi01¬ ) (شرطاو تعبير شرطي‎ Then 
صواب ( 1 )ع00)01)‎ ) ۲۲٤ ( مجموعة الأوامر التى يتم تنفيذها عندما يكون ناتح الشرط‎ 
End If 


سرح الييسل العام 
-١‏ يبدا التفرع باستخدام جملة 11...111©12 بكلمة ]1 وما بعدهاهو الشرط أو التعبير الشر طيِ Conditional‏ 
Expression‏ ثم كلمة 111611 على نفس السطر و تقایل كلمة اذن فى < 
۲- ينتهي التعبير الشرطي بكلمة 14 19:0 
؟- فى حالة ما يكون ناتج التعبير الشرطي صواب©1721' يتم تنفيذ الأوامر التي تلى 11:21 حتي الوصول إلى11 1110 
-٤‏ وفى حالة ناتج التعبير الشرطي خطا ۴۵1۴ يتم تنفيذ الأوامر التي تلى11 1110 





النم | ں الفرطده دمه نکی ې1 Conditional‏ 
لتعبير الشرطي 
هو جزء من كود Code‏ البرمجة يكون نانجه إما صواب ( صحيح ) ©1721 أو خطأع1"215 وذلك بناء على قيمة 
خاصية 2107107 أو متغبر ١2112121‏ أو بیان آخر بالبرنامج 


التعبیر الششرطي Conditional Expressions‏ 
مثال للتعبير الشرطى 


بعد العلامة المنطقية ' يوجد(6) علامات منطقية | قبل العلامة المنطقية 


If A>S‏ قيمة مجردة حم اكبر من 
١ 1۲۸5‏ 
او > اصفر من 
If B >> ۸‏ تفہ او => اصفر من اویساوی Variable‏ 
هم -< )1 1 
او =< اكبر من اويساوى 0 
Constant‏ 


2* 3 + 4= 1۴8 | قيمة من تعبير او=یساوی 


Expression 11 ) >< 4-5 2‏ او <> لا يساوى 





الفصل الدراسى الثانى 


هښ هي مي هي هي هي هي چم هم هم هم هم هل هم هن هر هم هن هم هم هی هم هم هي همي مخ دص ہم مم مم مم مم مم مم مم من مس مض مس مض من مم 


نستخدم جمل معينة في لفة البرمجة مثل جملة 1٤٥‏ ...1۴ و25 )...5161 وغيرها.. 


کک یح ی لی کي انی انی انی ابی نی انی انی نی مي انت لی مي انت لی مي مي اي مي مي اي مي مي اي مي مي اي مي مي مي مي کې لي دي کې لي دي کې لي اي کي لي اي انی اې لي انی نی لي نی کې لي اي کې لي اي کې لي اي کې اي لی کي انی اي کي مي همي همي خي هي شر 


و ممعم م م م م ا ھھھ ام 6 ھھھ ھھھ نامع مممعاممممھم مم ممم عم ع مھم مد مهاه و موو وو 





) علامة منطقية يسبقها متغير او ثابت يتم مقارنته مع ( قيمة مجردة او قيمة متغير اوثابت اخر او ناتج تعبير حسابى‎ -١ 


" - اذا تحقق الشرط فهذا يعنى ان نتيجة التعببر الشرطى م1116 
"- اذا لم يتحقق الشرط فهذا يعنى ان نتيجة التعببر الشرطى 315" و يتم تنفیڈ كود اخر 


للتعببر الشرطي قيمة تتوقف على صحة العلاقة أو عدم صحتها . 
.=< فإذا كانت العلاقة غير صحيحة فتكون قيمة التعببر الشرطي ©1'215 . 
<< والعكس إذا كانت العلاقة صحيحة فتكون قيمة التعبير الشرطي 1:06 
لا عبارة عن صياغة للعلاقة بين المتغبرع© 1051 والرقم 50 
لا العلاقة بينهما هی ان المتغير :168 اکبر من اوتساوى 50 
لا فاذاكانت العلاقة صحيحة فان قيمة التعببر الشرطى تكون صحيحة ( ©1701 ) 
لا امااذاكانت العلاقة غبر صحيحة فان قيمة التعببر الشرطى تكون خاطئة ( ©ع1"215) 
لصياغة التعبيرات الشرطية فإننا نقوم باستعمال بعض المعاملات تسمى معاملات المقارن 








اسفرمن وتساوى 


الفصل الدراسى الثانى 
هښ هج هي جز هس مي جح هل جز هل هل هن ع ثح ع ثح هل هي جح هي چم چي چم هي نحن هم هم هم هي هرن هم هم هم هم هرن هن هم هم هم هرن هن هم مس هز 


حا 


کک کي کک لی يي انی انی لی نی انی اي نی مي انت مي مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي نی مي مي مي خي لي دي مي لي دي کي لي اي کي لي اي کي لي لي انی کې لي نی انت لي اي انت لي اي کې لي اي کې اي لی انی انی انی مي مي همي همي خي هي شر 
پل لل لل يل یل یلا یل لل یل یل یل لل یل یل لا لل لعل لا لا لل لا لل لد :ف رر ره رڅ ره هه هه 


جوہوہوہوہوہوہوہوہوہوہھد وہ وہ وج يج وم وہ وہ وہ وہ زا ب ب ب ب وج يج يج يج ب نج نج ني يي يي يج يج يج وج وج يج يج يج نج نج نج ني يي يجن 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 


التعببر الشرطى الناتج الشرح 


د حيث أن القيمتين متساويتين 
0 < > 100 ن القيمتين متساود 


0 < > 300 7 | حيث أن القيمتين غبر متساويتين 
اذا كانت قيمة الخاصية)<1' للأداة1 :1:00 تساوى محتوى 


DEGREE yil 
اذا كانت قيمة الخاصية )× للادا0×15ط)×٥ 1 لا تساوى محتوى‎ 
DEGREE yil 


DEGREE=Textbox1.Text 


If X >= 50 Then 
٢عام فاجح'')×‎ ''( 


End if 


مريع الرسالة ( >80 (Msg‏ 


هی اختصار ( ×80 ۷٥۹386‏ ) أى مريع الرسالة .و يستخدم عند الحاجة لعرض رسائل أو إعطاء نصائح لستخدم 
البرنامج أثناء تشغيل البرنامج يكتب بالقاعدة التالية (''الرسالة '' )11/155107 





-١‏ قم بإنشاء مشروع يحتوى على نموذج1"01::2 
كما هو موضح وضع الأدوات المناسبة 





الفصل الدراسى الثانى 
ې هي هي هي خر خر هي هي ي ي هي هي هي ي هي هي الي ي ي هي الي ي ي هي هي خی هي الي هي هي هي هي ہی ي هي هي هي هي هي هي ھی ال جي هي هي عم مم مم 


> 


کک کک لی تی انی انی انی ي نی کې ي نی کې کي ي مي انت ي مي مي ي کي مي اي ي خي لی کي خي دي نی خي اي مي کې لي ي کې لي دي کې لي ي کي لي ي کي لي لي کي اې لي نی کې اي اي کې لي ي کې لي ي کې اي لی کې انی اتی کې مي لی همي خي هي شر 
پل لل لل لل یل یل یل لل یل یل یل لل یل لا يل يل لي رلا لا لن د د د ۰ه د هن رڅ رر ره رڅ ره هه هه 


هده هده 500000000010101 
ذكرة النور د : للصف الثالث الاعدادى 


-١‏ عند الضغط على زر ''نتيجة'' يعطى صندوق رسالة 716552561301 به كلمة ناجح إذا كانت الدرجة اكبر من أو 
تساوى 50 

"- وفى حالة إدخال درجة أقل من 50 لايظهر أي شی . 

-٢‏ سوف نكتب الكودع001') بالاعتماد على خريطة التدفق كما هو مبين 


الكود00 ) یکتب في اجر | ء الحدث »111 ) الخاص 


بزر الأمر 11160 


Private Sub Button1 click 
Dim X As Single 
X =Me. Textbox1. Text 


117 X >=50 Then 
MsgBox (''ذاجح'')‎ 
End If 

End Subll 










50 نم استخدام جملة"11 والتي تعبر عن الشرط هل قيمة × أكبر من أو تساوى‎ -١ 
11161١ فی السطر التالى لكلمة‎ ٧210) تم كتابة كود إظهار مربع الرسالة('' ناجح"‎ - " 
ةيادب-١‎ 1/110 11 وم انهاء الكود بكلمة‎ 

؟- يمكن كتابة کود ٥۱۸۱‏ البرنامج بالاعتماد على خطوات الحل1٦۸180111170‏ ؟-ادخل × 









٢۔اذاکان‏ 50=<× اذن 
٠‏ قم بتشغیل البرنامج. ٢‏ طباعة ” ناجح '' 
٠‏ أدخل قيم مثل 20 و 50 و 75 والنقر على زر'' نتيجة ''في كل مرة. -٤‏ نهاية 


7 اللي . 
لاحظ : -١‏ عدم ظهور صندوق الرسالة :7155256130 عند إدخال القيمة ٠١‏ اىأقل من 50 طبقا للشرط فيكون ناتج 
الشرط 3156 فينفذ ما بعد؟i End Subgkو End‏ أي إنهاء الإچڄرProceduresl‏ 


1106 اما عند ادخال القيم ۰٥و۷۷ فيتم عرض صندوق رسالة ناجح حيث نحقق الشرط 50 -<< × وقيمته‎ ٢ 


1000 1/ پمک كتابة نفس جملة /1 السابقة في سطر واحد ولا يتم وضع‎ .8٩ 





الفصل الدراسى الثانى محم 
يب کی شی انيب نايبب لی لی می ای ال لو يب یی خی یی نايبب نايبب بيب گی انی انی انی انی انی انی انی انی نی نابيب انی گی يب انی انی انی نی انی انی بي يب انی اہی يي يي یں وی وی يي ير 


حا 


کک کي يي يي انی انی ابی انی کې ي نی کي انت لی کي انت لی کې انت اي کي ني اي ي انی لی نی نمي لي نی کې لي نی اک لي اي اک لي اي اک انی اي انی انی دي انی لي اي انی اتی اي داي انی اي ابي انی لي انی انی لي اي کي اي اي انی مي انی مي مي هي همي خي هي شر 
پل لل لعل يل یل یلا یل لل یل یل یل لل یل یل لل لعل رلا لل نا لا لا د د پ ۰ د د ۸ رڅ رر ره رڅ ره ره هه هد 


حا 


.ههام امم مم امم م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم مم مد مهاه مام همام نه هت هه 


پل لل لعل يل یلا یل یلیل یل یل یل یل لل لا یلا لل لل رلا لا لد نا د د ده ۰ ره د ۰ د رڅ رر ره رڅ ره هه هه 





Private Sub Buttonl ۱1ج ل ټس ثل) غعلت ل ل۰‎ send 


2ت ل لدد 5351 Dim x As‏ 
)دیا ۔ چودوۍ۷ا لاعچږدی "ان کیج — 


1 ل1‎ x 3 BÛ Then MsgBox تا جج ٭)‎ [( < 


Enc Sub 


مثال اخر 


msgbox("you can get ID card") If Age > 16 Then 
MsgBox(“You can get an ID card”) 
End If 


هام ::: جمهله Then‏ 
يتم استخدامها في حاله ما اذا کان هناك گنر 6017-7 بمعنى انه عند قيمة معينة للشرط يتم تنفیذ البديل (أ) أما عند 
القيمة الأخرى فلا يتم عمل شئ و يذهب الى النهاية 


٢ ۱‏ 
تختلف جمل10...111:01..1/1524 عن السابقة حیث یتم استخدام هذه الجملة في حالة ما اذا کان هناك سؤال او شرط معين 


له 0 وکنا نريد أن يتم تنفیڈ احد البديلين إذا كانت قيمة الشرط ©1111 او ٣٢‏ ويتم تنفیڈ البديل الآخر اذا 
كانت قيمة الشرط ©1215 اوہ 





If conditional 1227155102 ) (شرطاو تعبير شرطي‎ Then 
)0006)1(  باوص‎ ) 11706 ( مجموعة الاوامر التی يتم تنفيذها عندما يكون نانح الشرط‎ 
Else 


مجموعة الاوامر التی يتم تنفيذها عندما يكون ناتج الشرط ( ه۴ ) خطا (006)2) 


End if 





تکملة البرنامج 


الفصل الدراسى الثانى 


هښ ا هم هم هن هم هن هم هن هم هم هم مض هم هم هم همز 


حا یھی الي کک لی لی نی کي انی ھی نی انی ي نی مي انت لی مي لي لی مي مي مي مي مي اي مي مي اي مي مي اي نی کې مي مي مي لي دي کې لي دي نمي لي اي کې لي اي نی لي لي انی اې لي اي کې لي اي کې لي اي کې لي اي کې لي اي مي مي اي نی مي هي همي خي هي شر 


۸ 


پل لل لعل لل یل یل یل لل یل یل یل لل یل یل يل يل يي رلا رلا يي نا پا د هد ۰ه ۰د هڼ رڅ رر ره رڅ ره ره هه هد 


Flse 
Msgb0x( '' '"'راسب‎ ) 
End If End 
End Sub 
الفصل الدراسى الثانى محم‎ 
اح سس‎ 
اطع ا ا اھ ا ال لی ال یی لی ای انی انی انی انی انی انی نی انی کې انی نی کې کې ای ای خی خی خی خی خی خی خی خی خی خی خی خی ھی می اخ و یں خی یں کې ا و ام کې چو چو‎ 


سح یس سک 


NNNNNNNNNNNNNNNNNNNNNNNNNNN ۱۱٥۱٧۱۱٧۳ 
ذكرة النور د : للصف الثالث الاعدادى‎ 





Code ( 2( 


حمل تنفذ عندما يكون الشرط 
خطام واد | 





شرح اليعفت العاف 


) 01101101131 يبدا التفرع باستخدام جملةع11...'11:©11..1/15 بكلمة 1 و ما بعدها هو الشرط أو التعببر الشرطي‎ -١ 


Expression‏ ثم كلمة ۲٥‏ على نفس السطر و تقایل كلمة اذن فی خطوات الحل او ۷٢‏ فى خرائط التدفة 

۲- فى حالة ما يكون ناتج التعبير الشرطي صواب©1721 یتم تنفيذ الأوامر التي تلى11212'اى (00©)1) ويهمل 
مجموعة الأوامر التي تلي ع1 ای (0016)2') ثم يذهب لتنفيذ مجموعة الأوامر التي تلى11 1700 

؟ - كلمة ©1715 على سطر بمفردها ومعناها ( و" الا و تقابل كلمة غبر ذلك فی خطوات الحل او N0‏ فى < 

-٤‏ وفى حالة ناتج التعبير الشرطي خطاع215 1 يتم تنفیذ الأوامر التي تلى 1:15 ای (00©)2) ويهمل مجموعة الأوامر 
التي تلي 1167 اى (00©)1') ثم يذهب لتنفيذ مجموعة الاوامر التي تلى]1 0٦‏ 

۵- ينتهي التعبير الشرطي بكلمة 11 11:01 








50 به كلمة راسب في حالة الدرجة أقل من‎ ٢٥532130: ')السابق ليعطي صندوق رسال‎ ٥٥0 تعديل الکود‎ OND: 


-١‏ عند الضفط على زر ''نتيجة'' يعطى صندوق رسالة ٧٠553210‏ به كلمة ناجح إذا كانت الدرجة اكبر من أو 
تماوى 50 

"- ويعطي صندوق رسالة<: 7155286150 به كلمة راسب في حالة الدرجة أقل من 50 

-٢‏ سوف نكتب الكودع001') بالاعتماد على خريطة التدفق كما هو مبين 


الكود 0012 ) يكتب في اجر | ء الحدث »111 ) الخاص بزر 


Private Sub Button1_click Buttons 
ہیس ےے‎ 


Dim X As Single 
X =Me. Textbox1.T'ext 


NO 





IF X >=50 Then 
MsgBox ('"ناجح"'')‎ 


کک کي کک نی لی انی انی انی ي ي کي ي نی کي کي ي کي انت لی مي انت ي کي انت اي ي مي اي کي مي اي نی مي مي ي کې لي ي کې لي ي کې لي ي کي لي اي کي لي ي انی نی لي ي کې اي ي کې اي ي کې لي لی کې اي ي کي انی اي کي مي هي لی خي همي شر 


جو ب ب ب ب ب ب يج يج وج وج وج وج وہ وہ يج يج مم وہ وہ وہ ب ب ب ب وج يج يج يج ب نج نج وہ وہ يي يج يج يج وج وج يج يج يج نج نج وہ ني يي ين 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 


لاحظ : أننا استخد نا 1715 والتي تعنى تنفیذ ما يليها في حالة ناتج الشرطء17219 


خلى بالك : يمكن كتابة نفس جملة ]1 السابقة في سطر واحد ولا يتم وضع!1 1.110 


111108 K قث‎ Single 
× = He. TextBoKl . ٢ 
11 x لاد ح«‎ Then HsgBok ("geli") Else HsgBok ل) ("راسد")‎ 
الاسلوب السابق قم بتنفيد مشروغ )ز٢۳۳ يحتوى‎ 2 
على نموذج1"0111 يستقبل قيمة في المتفيرا! من خلال‎ 
'' صندوق نص:1:)130 ثم اظهار عبارۃ'' الرقم زوجي‎ 
أو'' الرقم فردی''‎ 





١ةميق به كلمة الرقم زوجي إذا كانت‎ ۷1٥5۹38150٥ عند الضفط على زر ''نوع الرقم'' يعطى صندوق رسالة‎ -١ 
اى العدد المدخل يقبل القسمة على 2 بدون باقي (الباقی - صفر)‎ 

-٢‏ ويعطي صندوق رسالة<: 7155256150 به كلمة الرقم فردی اذا كانت قيمة N‏ ای العدد المدخل يقبل القسمة على 
2 مع وجود باقي ( الباقى - واحد ) 

؟- سوف نكتب الكود ١001©‏ ) بالاعتماد على خريطة التدفق كما هو مبين 


الكود0)1 ) يكتب في اجر ا ء الحدث ع1ا الخاص 


بزر الأمر1511]]01 
Private Sub Button1 click‏ 
Dim N As Long‏ 
N =Me. Textbox1. Text‏ 


IF N Mod 2=0 Then 

( ''الرقم زوجی'') :1155150 

Else 

1551072) '' '"الرقم فردى‎ ( 
End If 

End Sub 


الفصل الدراسى الثانى محم 
می می يبب مل لی ال لی لی لی لی ا لو O O O O‏ یں ايب نی ای انی انی نايب انی انی انی انی انی نی انی انی انی انی انی انی انی انی انی انی بيب يب انی بي ای يي یں وی وی یں ير 


حا 


کک کک لی لی انی انی انی ابی انی انی ي نی مي کي لی مي انت لی مي انت مي مي مي اي مي مي اي مي مي اي مي مي مي مي خي لي دي کې لي لی کې لي اي کې لي اي کي لي لي انی اې لي نی کې لي لن انت لي انی کې لي اي انی اي لی انی مي اي کي مي همي همي خي هي شر 
١‏ لل لل لل يل یل یل یل لل یل یل لل یل یل یلال لل لعل لا لا لد لا د ده ۰ه د 7 د رڅ ره ره رڅ ره هه هه 


هده هده 500000000010101 
ذكرة النور د : للصف الثالث الاعدادى 


٧١ ثم نخصيص القيمة بصندوق النص للمتغبر‎ -١ 
11 N 1100 اذا كانت تقبل القسمة على 2 بدون باقي من خلال التعبير الشرطي2‎ N "-أننا اختبرنا قيمة‎ 


۲- اثعامل ۱۷٥۷۹‏ هو معامل حسابي يعطى باقي القسمة وفى حالة ان يكون باقي القسمة على 2 يساوى صفر فهذا يعنى 


تحقق الشرط 1771 وبالتالي تظهر رسالة ( العدد زوجي ) فى صندوق الرسالة 
-٤‏ اذا کان باقي القسمة لا يساوي صفر فهذا معناه عدم تحقق الشرط©1"215وتظهر رسالة (الرقہ فردي) في صندوق رسالة 





© 26 زه زها راثا © IES A‏ 





۸٠ 
لا عرض رسائل اوضح لمستعمل البرنامج يقوم المبرمج بكتابتها‎ 
Try 
المحتمل أن يظهر منه خطا أثناء التشغیل‎ C٠٥١١ الكود‎ 
Catch ex As Exception 
الخاص بمعالجة الخطا إذا وقع و غالبا يكون رسالة‎ (٥1٤ كود‎ 
EndTry 
بقية أوامر البرنامج‎ 


.١‏ اذ قمنا بتنفيذ الأوامربعد 177 بدون اخطاء ينتقل البرنامج الي الأوامر بعد 177 10 مباشرة ويتم تجاهل 
الاوامر التی تلى طاو 

٢‏ اما اذا تم تنفیذ الأوامر بعد 117 بوجود أخطاء ينتقل البرنامج الي الأوامر بعد 2112 ) ليعرض الرسالة الموجودة بها 
ولايستكمل تنفيذ ما بقى من الأوامر التي تلي 17 1.. 





الفصل الدراسى الثانى محم 
می کی شی می انيب نايبب می لی می لی ال کو O O O O O O O O O O O O O O‏ ہنی نی انی انی انی انی انی انی انی انی انی انی بيب يب نی گی یں يي وی وی وی CC aC‏ 


حا 


کک کک لی يي انی انی ھی انی انی اي نی کي انت لی مي کي لی مي مي اي مي مي اي نی مي اي مي مي اي نی مي اي مي مي لي دي مي لي دي کې لي اي مي لي اي انی لي لي انی کې لي نی کې لي اي کې لي اي کې لي اي کي اي اي کي انی اي کي مي همي همي خي هي شر 
پل لل لعل لل یل یل یل لل یل یل لل لل لل لل لل لا لل د د ۰ د هن رڅ رر ره رڅ ره هه هه 


و مقع و مم عمد م م م عم امم ھ امم ام ما ع ھھھ ھھھ م مھ ھھھ ھم مم مممعممعممممممتمم مھم مد مهاه دام م مام نه ع شي 


> 


پل څل لل لعل يل یل یل یل لل یل یل یل لل یل لا يل يل يل رلا رلا ين د د د ۰ه ۰ هی رڅ رر ره رڅ ره ره ره ههد 


Select... Case التفل لاستندام‎ 








۱ یل؟ 
© - مھ 
تو6 ا8977ھ | ىت 


سل 
-١‏ استخدام 5٥1٥۰٤۲... 01٥‏ عندما يكون التفرع معتمدا على شيمه ۰۱۱۱۱٧۰٠‏ ۳ 


۲- تستخدم فى حالة و جود 9۳17000 فی ومتعدده 


-٢‏ تستخدم لجعل الكود 006 ) اکثر سهولة ووضوح اى مفهوم بشكل اكثر 


Select Case 1721-1211 اسم المتفير‎ 

Case value1 الحالة الاولى‎ 

مجموعة الأوامر التى يتم تنفيذها عندما تكون قيمة المتغير مساوية للحالة الاولی ا٣٥"‏ 
الحالة الثانية Case value2‏ 

مجموعة الأوامر التى يتم تنفيذها عندما تكون قيمة المتغير مساوية للحالة الثانية Code2‏ 
الحالة الثالثة ‏ 721163 Case‏ 

مجموعة الأوامر التى يتم تنفيذها عندما تكون قيمة التغبر مساوية للحالة الثالثة Code3‏ 
الحالة الاخيرة ‏ 5 ات ©25) 

مجموعة الأوامر التى يتم تنفیڈھا فى حالة لم تكن قيمة المتغبر مساوية لای من الحالات السابقة ٣۱٥٥‏ 
End Selectl‏ 


شرح الصیعة العامة 





72131211 يبدا التفرع باستخدام كلمة 25 ) )۳166 وما بعدها هو اسم انتفیں‎ -١ 
ثم كلمة ©25' )على السطر التالي وهى تدل على المتغير عائدة على المتغبر ويليها الشرط او الحالة الاولى‎ -۲ 
مجموعة الأوامر الأولى ( 0061 )) التى يتم تنفيذها عندما تكون قيمة المتغبر مساوية للحالة الأولى‎ C356 ؟- ياتى بعد‎ 
وفى حالى لم تكن الحالة الاولى مساوية ل قيمة المتغبر يتم الانتقال الى الحالة الثانية و تنفيذ مجموعة الأوامر الثانية‎ -٤ 
وهكذا‎ ) )0062( 
ويمكن ان يتم تكراركلمة ©2325 ) يليها الشرط اى عدد من المرات او الحالات حسب متطلبات البرنامج‎ -۵ 
ويتم تنفیڈ الاوامر التالية لها فى حالة لم تكن قيمة المتغبر مساوية لای‎ C358 تنتهى الحالات بالحالة الاخبرة ۹ا‎ - 
من الحالات السابقة فى البرنامج‎ 
End Select تنتهي جملة 25 )...)6 بكلمة‎ - ١ 

الاستغناء عن ©15© ©25' ) طالا لا حاجة 





الفصل الدراسى الثانى 


هښ هي هي هي هي هم هي چم هم هم هم هم مس هم هم هم هم هن هي هم هی هم هل هي همي چي چمي هي دص چم چم هم همي هم هم هن هم هم هم هن هم هن هم هن هم هم هم مض مس هم هم هز 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


کک کي کک لی کي کي انی انی ھی انی انی اي نی مي کي لی مي لي لی مي مي اي مي مي اي مي مي اي مي خي اي نی کې مي مي مي لي دي کې لي دي نی لي اي کي لي اي لي لي لي انی اې لي نی کې لي اي کې لي اي کې لي اي کي لي لی انی مي اي کي يي همي همي خي هي شر 


.ههه همه مهمعد م م م ا ھم مھ عامممماممام ھھھ ھھھ مھ مھ ھھھ ھم مم مم عممعممممممتمم مم ممم مم و مو وو 









قم بعمل مشروع يحتوى على نموذج 10112و اداة 
مربع النص 000011 1 وأداتين عنوان 31761 او 
زر 11011 و النص المعروض علية كلمة اختبار 


انطنوب 
١-إدخال‏ درجة الحرارة ©1081 من خلال مربع النص 1 آثم ثم النقر على الزر''اختبار ''يعرض 
في 12712 عبارۃ'' فوق الصفر ''أو عبارۃ'' تساوى صفر ''أو عبارۃ'' تحت الصفر''. 
٢‏ سوف نكتب الكودع001') بالاعتماد على خريطة التدفق كما هو مبين 


ase Dearee 
- 0 


""عوق الصفر '' Prin‏ تحت اٹثصفر '' ٣16‏ "صقر '' Print‏ 





ن شكل السادو امكانية التفرء ١‏ اک من فرعان من رمز انخاذ القرار حيث يحتوى رمز انخاذ القرا ؤال عن قيمة 
المتغبر ١١١ء٥(‏ وحسب قيمته نتفرع إلى کود ٣0۷١‏ مختلف 


Dim Degree as 6 
Try 


Degree =Me. Textbox1. Text 
Select Case بدا جملة‎ 


Select Case Degree 






Case Û 
اأصلي ينفذ في‎ 0٠ الكوده‎ Me. Label2.text =" الصفر‎ " 
حغ]_ حالة إدخال قيم عددية‎ Case Is < 0 


Me. Label2.text ='' تحت الصفر‎ " 


End Select 
Catch ex As Exception 
٧٠٨81017) '' ''ادخل عدد‎ ( 
Me. Textbox1. Focus ) ) 
Me. Textbox1.Text = ''"" 
End Try 









الکو ٣)٠1‏ الذى ينفذ في 
حالة إدخال قيم غير عددية 


| 


الفصل الدراسى الثانى 
هښ هښ هس هي جز هس هي جح هل هن ع هل هن ع مث هنز هم ثح هل حنج هس هي نج مس هي نحن هم هم هم هي هرن هم هم هم هم هرن هم هم هم هم هرن هن هم مض هز 


۸۷۱۸۷۷۸۷-04 
مذكواتك جاهزة للطباعة 


حا 


کک کي کک کک تی انی انی انی ابی نی کې ي نی مي انت لی مي لي مي مي مي اي مي مي اي مي خي اي مي خي اي نی مي مي مي خي لي دي لي لي دي کي لي اي نی لي اي کي لي لي انی انی لي نی کې لي اي انت لي اي کې لي اي کې اي لی انی مي اي کي مي همي همي خي هي شر 
پل لل لل يل یل یل یل لل یل یل یل لل یل لل لل لعل لل لل لل لا لد د هده ۰ رڅ رر ره رڅ هه ههد 





و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


-١‏ ثم الإعلان عن التفبرں 1(۲ من النوعء511151 لاحتمال إدخال رقم عشري 

-٢‏ يتم اختبارالقیمة المدخلة بجملة ٥11‏ 1777 للتاكد من ان الدخلات مناسبة عند تشغيل البرنامج 

۳- اذا كانت الدخلات صحيحة يتم تنفیڈ الاوامر التى تلى 17۲ و اختيار احدی الحالات من جملة 25 ) 51261 و طباعة 
الرسالة المناسية 

©2117 وفى حالة اذا كانت المدخلات غبر مناسبة ( خطا )يتم الانتقال مباشرة الى الجمل التى تلى‎ -٤ 

-٥‏ وفى هذة الحالة يتم عرض صندوق رسالة :71155252130 يطالب ال مستخدم (بإدخال عدد )بدلا من قيمة حرفية أو 


قيمة خالية 
-٦‏ جعل المؤشر يقف فى مربع النص 000:1 1 لبدء ادخال البيانات الجديدة مرة اخرى 
-٧‏ مسح او افراغ محتويات مربع النص 10:10:21 من محتوياته ( حتى لا تتداخل القيم الجديدة مع القيم المدخلة سابقا) 


Focus رمالا-١‎ 

هو( وسيلة وليس خاصية ) معناه حيازة الانتباه أي أن الأداة قيد الاستخدام أي هى المستخدمة الآن 

وهوخاص بصندوق النص ×0 1١×۲5‏ ای تخبر لغة ۷13.۷١‏ بنقل التركيز اليه ووضع ال مؤشر بداخل صندوق النص 

” ” اذا اخذت القيمة‎ 1 extBox الخاصة بالاداه‎ ١١×) الخاصية‎ ٢ 

يعنى جعل خاصیۀ )کا 1 تساوى سلسة حرفي ةخالية 5111118 001017 وهذا یلفی الدخلات السابقة للاداه <72]1501© 1 





تدريب قم بإنشاء مشروع جديد) ز٢۳٧ ew‏ يحتوى على نموذ ج1'01111 
قم بعمل مشروع يحتوى على نموذج 0٥‏ ۷ أدوات عنوان| 1,۵76 وأدا1.5600:3 تحتوی على عناصر 











Label 3 | 
La bel’? 34 


-١‏ عند النقر على أي عنصر من عناصر الأداة1.15)10:<1 يعرض عدد الأحرف 1065 وعدد الأوجه ۲٥6‏ وعدد 
الرؤوس 110105 للمجسم المحدد 

"- یکتب الكود في إجر ا ء الحدث0111:06:)12115©)01)ع)ع516 الخاص بالأداة1.15010<1 وعند الانتهاء يتم تشغیل 
البرنامج بالضغط على مفتاح 1'5 








الفصل الدراسى الثانى 
هښ هښ هس هي جز هس مي هل هل هل هن ع هل هن ع هم هنز هم ثح همل حنج هس هي مم مس هي نحن هم هم هم هم هن عن هم هم هم هرن هم هم هم هم هرن هن هم مس هز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


بای ای الي کک يي نی نی انی ھی انی انی ي نی مي انت مي مي لي لی مي مي اي مي انت اي مي مي اي نی خي اي مي مي مي مي مي لي دي مي لي دي کې لي دي نی لي اي کي لي لي انی اې لي نی کې لي اي انت لي اي کې لي لی کي انی اي انی انی اتی نی مي همي همي خي هي شر 
پل لل لل لعل لل یل یل یل لل یل یل لل لل لا لل لل لا لا لن د "د هد :ف رر ره رڅ ره هه هه 





الأدان Listbox‏ 
وان تختار منها 
؟- تظهر الأداة على هيئة مستطيل يعرض بداخله صفوفا من الکلام 


-٢‏ کل صف من هذه الصفوف يعد عنصرا يمكن لمستخدم البرنامج أن يختاره 


عدد العناصر في الأداة 115٦1005‏ 


۰ ہے 


1+01 


۹- عندما تكون قيمة هذه الخاصية1 مثلا فهذا يعنى تحديد العنصر الثانى وهكذا 


تخصیص قيمة فهرس العنصر المحدد فى المتغير × 


الكود فى حالة اختيار العنصر الذى ترتيبة صفر ( المكعب) 


الكود فى حالة اختيار العنصر الذى ترتيبة )١(‏ ( متوازى المستطيلات) 


الكود فى حالة اختيار العنصر الذى ترتيبة )٢(‏ ( الهرم الثلاثى) 


الکود فی حالة اختیار العنصر الذى ترتيبة (0٢)‏ الاسطوانة) 


الفصل الدراسى الثانى 


حا 


پل لل لل لل يل یل یل یلیل یل یل یل لل یل لا يلا يل يي ري رلا ري ري يي رن پا د د هه د ه۰ رڅ رر ره رر رڅ ره هه هد 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


١-يكتب‏ الكودء ١٥d‏ في إجراء الحد13۱2۶01)×+1 ٥۷۸‏ )ء5 الڈی يعنى عند تغير 
العنصر المحدد وهو الحدث الافتراضي للأداة1.15]10:<21 ويتحقق هذا الحدث عند اختيار عنصر من عناصر الأداة 


هده هده 500000000010101 
ذكرة النور د للصف الثالث الاعدادى 





-١‏ تعد الأداة 150007 | واحدة من الأدوات التي تربط غالبا بالتكراروتتيح لك هذه الأداة أن تنشئ أو تعرض قائمة من العناصر 


4- 1110167 يقصد به الفهرس اى هو رقم العنصر في القائمة ( ترتيبه) وياخذ الأرقام من صفر إلى 1- )201112 حيث ]201111 هو 
-٥‏ يتم إضافة عناصر(1])600 للأداة<1.15]170 عن طريق الخاصية :)1 في نمط التصميم 

) يبدأ الترقيم داخل الأداة 1151005 من الصفر ( ای ان العنصر الاول یاخذ الرقم ( صفر )و الثانى رقم( واحد‎ -٦ 
۲ والثالث رقم ( اثنين ) وهكذا ... ) ولوان عدد عناصر القائمة 4 فان العنصر الرابع ترتيبه فى القائمة هو‎ 
فهرس<111)1 أي ترتیب‎ 


۸ لذلك يتم معرفة العنصر المحدد ( رقم العنصر في القائمة)عن طريق الخاصية :12016 60]ع»16ء5_للأداة1.15]0:1 


Private Sub Listbox1 _SelectedIndexChanged 


Dim X as Byte 


X = Listbox1. SelectedIndex 


Select Case X 

Case 0 

Label5.Text "17 
Label6. Text = '' 6 "' 
Label7.Text = '' 8 "" 
Case 1 

Label5.Text 7 
Label6.Text = '' 6 "' 
Label7.Text = '' 8 "' 
Case 2 

'" 6 '"' = 6۴۲ ]..ڈ5( را13 
Text - 3 "'‏ .1216 
Label7.Text = '' 4 ''‏ 
Case 3‏ 


Label5. Text = '' یوجٹ‎ 8 '' 
Label6. Text = '' إيوجد‎ i '' 
Label7.Text = '' agi '' 


End Select 
End Sub 





هښ هي هي هي هي هم هي چم هم هم هم هم مس مس هن هم هم هن هم هم هی هم هل هي همي چي چمي چي چم چم چم هم همي هم هم هن هم هم هم هن هم هن هم هن هم هم هم مض هم مض هم هز 


اع بھی جال کک لی لی انی انی انی ابی نی کي انی نی مي اي لی مي لي مي مي مي اي مي مي اي مي مي اي مي خي اي مي مي مي مي خي لي دي مي لي دي کې لي اي کې لي اي کي لي لي انی اې لي نی کې لي اي اې لي انی کې لي اي انی لي اي انی مي اي مي مي هي همي خي هي شر 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


> 


پل لل لل لل لل یل یلا یلیل یل یل یل لل یل یل یل يل يل يي ري رلا ري يي ري ہیک ري لي پا په دد 7 7 7د ی7 رر ره رڅ ره هه هه 


عند اختيار أحد عناصر الأداة 


02011101501 ) يعرض فى مربع 
النص< 171150 تعريفه 





ن دارستك للجغرافيا تعلمت الكثبر من المفاهيم مثل المجرة والكوكب والنجم ... الخ قم بإنشاء مشروعا©)©[1”10 يحتوه 
نموذْ 101/111 


وحرارته من نجم قريب مته 


Private Sub ComboBox1_SelectedIndexChanged 

Select Case ComboBox1. SelectedIndex 

Case 0 

" نجمعات كبيرة من النجوم المختلفة الاحجام و الأشكال و الافواع ''- Textbox1.1ext‏ 

Case 1 

''جسم محتم لا يشح ضوء ولا حرارة و يستمد ضوده و حرارته من نهم قريب مضه ''= 10001.1٠)‏ 

Case 2 

''جسم معنم اصغر حجما من الكوكب يرتبط به بفعل الجاذبية و يعكس ضوء الشمس الواقع عليه ''= )×1 011 ا١×ہ']'‏ 
Case 3‏ 

جسم مضئ ملتهب يشح ضوء و هرارة ''- )1.16-:1:000 

Case 4 

جسم صلب يحترق جزنيا عند احتكاكة بالغلاف الجوى ''= ٤×۲‏ 0×1.1طb٤×۲ex‏ 

Case 5 

''جسم سماوى صلب يسبح فى الفضاء حول الشمس و يجرى فی السماء على هينه سهام ضوئية ''- Textbox1.T ext‏ 
Case ۶‏ 

(''یرجی اختيار احد المفاهيم '') MsgBox‏ 

End Select 

End Sub 


-١‏ اجعل الخاصية 11٤111١٤‏ لمربع النص×80)×ء 1 تساوى©11) حتى تكون متعددة الاسطر 
"- أضف العناصر مثل مجرة , كوكب , قمر , نجم , نيزك , شهاب للأداة<01110150') من خلال الخاصية 1161٧15‏ 
- يكتب الكود في إجر ا ء DS‏ الخاص بالأداة<00120150) 
-٤‏ لقد اعتمدنا في كتابة سس على ترتيب العناصر داخل الأداة×0 8 (٠1١(0‏ حيث أن العنصر الأول له ترتيب فی 


×1 صفر و العنصر الثاني ترتيب فى 11106 )١(‏ والعنصر الثالث ترتیب فى 11106 )٢(‏ وهكذا 
هام : إجر | ء انلحدSelectedIndexChangedû‏ خاص بالأداة ComboBox‏ والاداة listbox‏ 





الفصل الدراسى الثانى 
هښ هه هي جز هس جح هل هن ع هل هن ع هم هنز ع ثح هل هل هي هس هي نج چم هي نحن هم هم هم هي هن هم هم هم هم هرن هم مس هم هم هرن هن هم مس هز 






کک کک لی يي انی انی ھی انی کي انی نی مي انت مي مي انت مي مي مي مي مي مي اي مي خي اي مي خي اي مي مي مي مي خي لي دي کې لي دي کې لي اي کي لي اي انی لي لي انی انی لي نی کې لي اي کې لي انی کې لي اي کې لي لی انی مي اي مي اي همي همي خي هي شر 














ممم ممم مهعم م مه امم مم مھا هه م م د مه دم هه مه د ههه م مهه م ممه عه همتهم 6 مم و ل شل وو 





)1١(‏ اجب عن الأسئلة مستعینًا بالكود التالى: 


If X >= 50 Then 


( "تاجح )115967 
End if‏ 
أ- يتم إظهار صندوق الرسالة وعليها النص 'ناجع' عندما: .. 
ب- إذا كانت قيمة 50 = × فإن ناتج تنفيذ الكود هو 


ت- اذا كانت قيمة 62 = × فإن ناتج تنفيذ الكود هو: 


(۲) اجب عن الأسئلة التالية مستعینًا بالصيغة العامة لجملة التفریع 11161 ..... ۴ا: 
Then Code 1 Else Code 2‏ (تعبیر شرطی) If Conditional 0٨655166‏ 


أ- اكتب تعبير شرطي يختبر قيمة المتغير ‏ إذا كانت أقل من 0. 


ا ذا هو 0 09 گے رج 8 0 0 BÎ BEB‏ ا 1 رت 0891 !كا 8 8 0 08 IB‏ اه E‏ 9 09 0 08 080-01 08ص ههه 1 ألا 9 091 08 898 08 8 BÎ BB IB IB IB‏ 8 0 09 08 8 08 8 8 8 هاس ا ها 1 ا 9 09 09 8 08 8 Im 8 IM ٧‏ 


ت- يظهر من الصيغة العامة لجملة (5156 .. 7٦60‏ .. )۱). أنه إذا تحقق التعبير الشرطي يتم 


الفصل الدراسى الثانى ١‏ 
بعص هي هي هي خی ي هي هي ي ي هي هي الي جي هي هي الي جي هي هي ي ھی هي هي هي خی خی هي هي هي ي اہی ہی جي هي هي هي هي هي هي الي ال ال هې حي جي عم مع .مم 


کک کي جج ی کک لی نی انی ي ھی نی کي ي نی کي ي ي مي انت لی مي مي لی کي مي اي مي خي اي کي مي اي مي مي مي ي مي لي ي کې لي اي کې لي ي کې لي اي انی کې لی انی کې لي نی کې اي لن کې لي ي کې لي ي کې اي لی کي انی انی کي مي همي همي خي هي شر 
پل لل لعل يل لل یل یلا یلیل یل یل یلا يل یل یل یلا یلا یل یل یل یلا یل یل یل یل یلا یل یل یلیل یل یلا يلا يل یل يل یل یل یلا يل لي يل لا يل يل يي ول یل یل ٥‏ لا 


حا 


"مقعم ممه ممعم مھ ھت م ھھھ م ھھھ ھھھ م مھ ھھھ م مم مم مع مم عم مم مم معام ماهم همه مداه اهاد همام نمه شيل 


(۳) 


> 


پل لل لل لعل لي یل یلا یل لل یل یل یلیل یل یل یل لل لعل لا لا لل لا لا لا د په ده د ۰ هڅ رر ره رڅ ره ره هه هد 





اجب عن الأسئلة التالية مستعيئًا بالشاشة والكود بالجدول: 


Private Sub Buttonl 567 


Dim xX As 8 
= Me. ٣۸۶٢ء1‎ 1 
If x حي‎ 50 Then 
MsgBox )" ("ناجعح‎ 
End If 


End Sub 





أ- الفرض من البرنامج هو 


ب- يتم تنفيذ الكود إذا وقع الحدث ................ على أداة التحكم .. 
ت- اواب المتغير × في الكود هو 
'۰ في الكود تشير إلى: . 
ج- إذا تم إدخال القيمة (50) في صندوق النص يكون ناتج تنفيذ الكود هو: .. 
اكمل الجدول التالي بالكود اللازم. مستعينا بالصيغة العامة للجملة الشرطية 
IF .. Then .. Else‏ 


If Conditional Expression Then 


Code 





الفصل الدراسى الثانى 
بح هي هي هي خر خر هي هي ي ي هي هي ي ي هي هي الي ې ي هي حص ھی حیحص تی نی خی هي هي هي هي اہی جي ي هي هي هي هي هي هي الي ال جي هي جي هي هي مم ې ر مر 


اع ی ای لن ی کک لی تی انی انی ي ي انی کې ي نی کي کي ي مي کي لی مي مي ي کي اي ي کي کې اي انی خي اي مي مي مي مي کې لي ي کې لي دي کي لي دي انی لي اي کي اې ي نی کې لي انی کې لي ي کې لي ي کي لي اي کې اي لی انی مي اي کي مي همي کې خي ا شر 





"مقعم مم امم امم مم ماممامم عه ھھھ ی ھھھ مھ ھھھ م ھھھ مم مم ھھھ د مم مت ع مھ ھھھ اعا مام نم هت موه وو 





وذلك لإظهار صندوق رسالة يحمل كلمة 'مصر" إذا كانت قيمة المتغير 


أو يظهر صندوق رسالة يحمل كلمة 9/۲ غ: 





(5) اجب عن الأسئلة التالية مستييّنا بالكود: 


أ- إذا كانت قيمة 76 = × فإن ناتج تنفيذ 


Dim x As Single 


x = le. TextBox . Text الكو الى ت‎ 
11 x 2= SÛ Then 


ب- إذا كانت قيمة 49 = × فإن ناتج تنفيذ نایا 
ب- اذا كانت قيمه 49 = × فإن ناتج تنفيذ ("نامع")80ووا! 


الک ان SS‏ 16 
ت- اعد كتابة الكود الخاص ب ؟! 8۱061 ني 
ليظهر على سطر واحد فقط. 
الفصل الدراسى الثانى 


> 


اح ی اھ ی کي کک لی نی انی انی انی ھی انی کي ي نی کي ي ي مي کي ي کې مي ي کي مي ي ي خي اي کي کې اي مي مي مي مي کې لي ي کې لي دي کې لي ي کي لي اي نی لي ي انی اې لي نی کې لي اي کې اي ي کې لي ي کي اي ي انی مي ي کي مي همي اک خي هي شر 
پل لل لعل يل یل یلا یلیل یل یل یل یل لل یل یل يل يل يل رلا رلا لا لن نل د ده ۰ه د ۸ رڅ رر ره رڅ ره هه هه 


په هي هي هي هي هي هي هم هم هن هم هم هم هم هم هم هی هم هی هم هن هي هس همي هي چمي جس هي هي هي ہم هم هن هم هی هن هم هن هم هن هم هم هني هم هن هم هن مض هب هز 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


> 


پل څل لل لعل يل یل یلا یل لل یل یل یلیل یل یل یل یل لل لعل لا لا لل لا لل لد د هه ده ۰ رڅ ره ره رڅ ره هه هه 





(5) اجب عن الأسئلة التالية بعد دراسة الكود: 


Dim H قف‎ 635 


تل ۱ د نست د النتص 1 زود "8 شرن ھا" 
لكود بحيث يظهر النص "الرقم زوجي" في مريع عنوان N = Me. TextBox1 . Text‏ 


11ء ويظهر النص "الرقم فردي" في مربع عنوان صندوق If N Mod 2 = 0 Then‏ 
2 بدلا من صندوق رسالة. ("الرقم زوجي ") 115801 
06 
ب- استبدل نوع المتغير N‏ لیصبح 96۳٨‏ 1016. ("الرقم غردي") 8601 15! 
End If‏ 


(۷) الكود التالي يستقبل أي رقم من صندوق نص. ويقوم بتخزينه في متغيرء ثم يختبر قيمته فإذا كان 


العدد زوجي يظعر مربع رسالة بذلك. وإذا كان عدد فردي يظهر مربع رسالة بذلك. 


لاه وتصوببها ليكون ناتج تنْفیذہ صحیخا. 


المطلوب: اعد كتابة الكود بعد اكتشاف الأخطاء ال 









Dim X As Integer 

N = Me.TextBox].Text 

If N Mod 2 = 0 
115986: )" ('الرقم زوجي‎ 

Else 


('الرقم فردي") 1159867 


الفصل الدراسى الثانى 


په هي هي ا 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


اع اليه الي کک لی لی انی انی انی ھی نی انی اي نی کې کي مي مي انت لی مي مي اي مي مي اي مي مي اي مي مي اي مي مي مي مي مي لي دي لي لي لی نمي لي اي کي نی اي کي لي لي انی اې لي نی کې لي لن کې لي اي انی لي اي انی لي اي انی مي انی مي يي هي همي خي هي شر 


ممم مم عمد م م م ا ھم عه عامممماممامممماعما مع مممم تم مم ھم مم مم ماھ ع مھم مد مهاه ھام مام نه شل 





(۸) اجب عن الأسئلة التالية؛ بعد دراسة الكود التالی: 


۲۶1۷3: 5114 Buttonl Click (ByVal sender As 86 
Dim degree As Single 
Try 
6076هل‎ = Me. TextBox] . Text 
Selêct Casê 6258 
Case Û 
Me . Label 2. TexL = 
Casa 15 ټ‎ Û 
Më . Label? . Tex = "لحت الصضصفد"‎ 
LCase 15 خم‎ Û 
Ma .Labe1l2 .Tfaxt = "لوق الصفر"‎ 
End Sêlëct 
Catch ex As Exception 
MsgBox ("si (["ادخل‎ 
Ma . TaxtBEOX] . Focus )( 
Më , TxXtBOoXK]Î , Txt = ٦ 
End Try 


End Sub 


الغرض من الكود هو: 


ب- إذا علمت أن: 3- = 089188 يظهر في صندوق الرسالة النص: 


ت- يتم تنفيذ الكود عندما يقع الحدث ................... على أداة التحكم .. 


ث- نوع المتغير 0691786 هو: . 


الفصل الدراسى الثانى 
هښ هچ کي هي هښ هس ص ص ص ص ص ص ص ص ص هم هن ص هم هل هم ص همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


> 


کک کک لی نی نی انی انی ھی انی انی ي نی کې کي ي مي انت لی مي مي اي مي مي اي کي خي اي نی خي اي مي مي اي مي کې لي ي کې لي ي کې لي دي کې لي ي کي لي ي انی کې لي نی کې اي ي کې اي ي کې لي ي کې اي اي کي مي اي کي مي ي همي خي همي شر 
پل لل لعل يل یل یل یل لل یل یل یل لل یل یل لل لل لل لل د د د د ۰ه دپ د یڅ ره رر رڅ ره هه هه 


.ههه هم مهمعد م م م مم مم ام ھاممامع ام عامممماممام مم ماما ھھھ م ھھھ ھم مم مممھممعممممممتمم ل و شي 





گا درسنا فى الفصل السابق كيفية تنفيذ كوده C03‏ محدد بنا ء على ناتج تعببر شرطى وسوف نتعلم من خلال هذا الفصل 
كيفية تكراركود محدد لعدد من المرات 


1 Kele) o ajj لاشم‎ ۱١۱ 






هی تکرار كود ٤(‏ 01( ) محدد او معبن لعدد من المر ا ت 


22 


1(0 ٢:١٧٧ Ke sallow. For...Next تملق‎ 





اسللتدام بصل r...Next‏ 


جملة التكرار ٠٠٥ ... ٧٠٠٧‏ هی أحد جمل التكرار المحدود, حيث تستخدم عندما نرغب في تكرار 006 )معبن محدد من المرات. 


For Variable = Start Value To End Value] Step Add Value] 
Code 
Next [Variable | 


از [قيمة الزيادة )5 ] نهاية العداد 10 بداية العداد = العداد 1001 : 
أ الجمل ا مراد تكرارها : 
[Variable] : 1‏ 5001 : 








ERB: 
Om; 
اسم امتغير الذي يمثل العداد. ویجب أن يكون نوعه رقمي (صحيح أو مشري).‎ 
؛ قيمة بداية العداد أوبداية التكراروهي قيمة رقيمة.‎ 

ا ا : قيمة نهاية العداد أو نهاية التكرا ر وهي قيمة رقيمة أيضا. 

ا : قيمة زيادة العداد أو القيمة التي يزيد بها العداد حتى يصل إلى قيمة النهاية. 


1 : عبارة عن أمر أو أكثر المراد تکرا رة ويكون بين بداية الحلقة التكرارية ٠۲‏ ۴ونهايتها ١٥×‏ 


الفصل الدراسى الثانى 
هښ هښ هج جز هس هي جز هل هل جز ع هل هن هم هم هن ع ثح هل هم هي هس هي مم مس هي نحن هم هم هم هي هن هم هم هم هم هرن هن هم هم هم هرن هن هم من هخ هز 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


حا 


کک کک لی نی نی انی انی ھی انی انی ي نی مي انت مي مي لي لی مي مي اي مي مي اي مي خي اي مي خي اي مي مي مي مي مي لي دي کې لي دي کې لي دي کې لي اي لي لي لي انی انی لي نی کې لي اي کې لي اي کې لي اي کې اي اي مي مي اي مي مي همي همي خي همي شر 
پل لل لل لعل لل یل یل یل لل یل یل یل لل یل یلا يل يل يي رلا رلا ري يي را هد د د د د ۰ هڅ رر ره رر رڅ هه هه 


حا 


.ههام امم مم امم م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم مم مد مهاه مام همام نه هت هه 


پل لل لعل يل یل یل یل لل یل یل یل لل یل یل یل لل رلا لا لل د د ۰ د هن رڅ رر ره رڅ ره هه هد 





(اساو وا06۰ 
عبارة عن أمر أو أكثر المراد تكرا رة ویکون بين بداية الحلقة التكرارية ٧0٥7‏ ونهایتها )1/2 


Counter ااکدات‎ 


هو 0-۴-0 مرات الت ر مواق 


تبدا الحلقة التكرارية بكلمة اه ۲إ ( بداية الٹکر بداية التكرار) 00 

وتنتهى الحلقة التكرارية بكلمة ٦٥٦٢‏ ( نهاية التكرار) 

يتم نحديد اسم المتغبرء1 ١١21121‏ بعد كلمة ٧٠٥‏ و ويطلق عليم متغبر العداد 00111١61"‏ ) 

المتغبر العداد 0111111 ) له قيمة بدايةع2101'١‏ ]5121 وقيمة نهایۀ ۷٠٧٠٧۰‏ 1/1101 و ويتم نکر ا ر الكود 
٥6ع‏ داخل الحلقة حتی الوصول الى قيمة النهاية 

الكلمات( Value - End Value - Start Value‏ 400 )هي قير آک٥‏ يتولى البرمح تحديدها . 

فى الصيغة العامة نم وضع بعض الكلمات بين قوسين مربعين مثل[ ©1211 400 م66١٤‏ ] و[ ۷٥۲13016‏ ] بهذا 
الشكل [ ] وهذا للدلالة على أنها 











و فى حالة عدم كتابتها تاخن فى هذا الحالة 21 250 


ای 


القيمة ا إابپتدائیے للعداد 


شرح الصيغت 277 


ا For counter = 5 To‏ 
.١‏ تخزین القيمة 2۲۲ )ء داخل المتغیر :0111© 
٢‏ مقارنة القيمة المخزذة في counter‏ بالقيمة end‏ القيمه ااتهائبه !اعد اد اعد اد 


١‏ - إذاكاذت القيمة المخزنة فى المتغبر ( العداد (Counter‏ أكبر من القيمة النهائية ( 1:11٦‏ ) للتكرارينتهى التكرارويتم 
تنفیڈ الأوامر الموجودة بعد )116 
ب _إذا كانت القيمة المخزنة في المتغير ( العداد 0011111 ) اقل أوتساوى من القيمة النهائية( 1110 ) للتكراريتم تنفيد 
الأوامر المراد تكرارها بين ( 116 , “101) من اعلى الى اسفل 
۳ عندما يصل البرنامج إلى )1161 

أ) فيتم زيادة القيمة المخزنة في العداد 20111111 بمقدار واحد ( القيمة الافتراضية ) لانه لم يضع مقدارزيادة 


ب)يعود البرنامج إلى بداية التکرار 


الفصل الدراسى الثانى 


هښ هي هي هي هي هم هي چم هم هم هم هم مس هم هم هم هم هن هم هم هی هم هن هي همي 0 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 





ا یھی الي کک ابيب لی انی انی انی ھی انی کي اي نی مي کي لی مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي مي مي مي مي خي لي ي کې لي دي کې لي اي کې لي اي نی لي لي انی انی لي نی کې لي اي کې لي اي کې لي اي کې اي اي مي مي اي کي يي همي همي خي هي شر 


NNN NNN NNN,‏ 5000000000100000001010010101001010101011ظش 
ذكرة النور د : للصف الثالث الاعدادى 





Designed By: Fatma Abdallah‏ اد 





قم بإنشاء مشروع)c٥ ۲٣١‏ يحتوى على 
نموذج1"01112 وزر151111011 و النص المعروض 
علية كلمة عرض الاعداد من ١‏ الى ٢‏ ا 


المطلوب 
-١‏ عند الضغط على زر '' عرض الأعداد من 1 الى؟'' يعطى صندوق رسالة ۷136130 يعرض بداخلةالاعداد من ١‏ الى ٢‏ 
۲ - سوف نكتب الكودع001') بالاعتماد على خريطة التدفق كما هو مبين 
-٢‏ یتم كتابة الكود داخل معالج الحدث الخاص بالزر عرض الاعداد من ١‏ الى ٣‏ 





الكود00 ) يكتب في اجر | ء الحدث »111 ) الخاص 
بزْر الأمر111]]01 
Private Sub Button1 click‏ 


Dim M As Integer 

For M =1 3 

MsgBox ( M ( 
Next 

End Sub 





ويمكن تتبع سبر الکود0۹٥)‏ كما هو موضح بالجدول 


تفسر الكود 
Dim M As Integer‏ 
الاعلان عن متغبر العداد 


For ١1-1 3‏ لا تت لدد 
بداية العداد ۷1[ من ۲۰٢‏ هښ یس 





Msgbox M 
١ ” 1/1 جملة التكرار” طباعة قيمة‎ 


الفصل الدراسى الثانى محم 
پ ا 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


حا 


کک لبي لی نی انی انی انی ابی انی انی انی نی مي انت همي مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي مي کې مي مي مي لي دي کې لي دي کې لي دي مي لي اي نی لي لي انی اې لي نی لي لي اي انت لي اي انی لي اي کي لي اي مي انی اتی نی مي همي همي خي هي شر 
پل لل لل يل یل یلا یل لل یل یل یل لل یل لل لل لعل لا لل د د دد هه ۰ه 7 رڅ ره رر رر رڅ هه هه 


ممم مهمعد م م م ا ھم ع عامممماممامممماعما نامع ممممم مم ھم مم مم ماھ لل ماھ م مد مداه ھام م مام نه شي 


اا اتا ا ا EDT‏ 


حا 


پل لل لل لل یل یل یل لل یل یل لل یل یل یل يل يل يي ري رلا ري يي ري رر "هند اه د د ه۰ د یڅ ره ره ره رڅ ره ره ره هه 


نهاية الحلقة التكرارية حيث يعود البرنامج الى 
جملة ٠٠٢‏ و يختبر تخطی العداد لقيمة نهاية 
الحلقة التكرارية 
فاذا كانت قيمة العداد اقل من اوتساوى قيمة 
النهاية يزيد العداد بقيمة الزيادة وينفد 
خطوات التكرار 


( زيادة M‏ بواحد ( M=1+1‏ 
هل قيمة ١١‏ أكبر من قيمة النهاية ( الناتجء1"215 ) 


زيادة 11 یواحد ٧۱٧١-2-11‏ 
نفس الاجراء السابق ذكرة هل قيمة ١1‏ أكبر من قيمة النهاية ( الناتج©1'215 ) 


1 1:200 جملة التكرار 
طباعة القيمة الجديدة للعداد بعد الزيادة 


زيادة 11 یواحد ٧۱٧١-3-1‏ 
Next‏ هل قيمة 1 أكبر من قيمة النهاية (الناتع ©1101 ) 
نفس الاجراء السابق ذكرة الخروج من الحلقة التكرارية و تنفیڈ الاوامر التى تلى 
Nex)‏ ان وجدت 


-١‏ عندما یصل البرنامج إلى 11051٢‏ 000 بزياد قيمة امتغير۷1[ بمقدارواحد 

-٢‏ يتم مقارنة القيمة الجديدة بقيمة النهاية للحلقة التكرارية وفى حالة زيادتها عن قيمة النهاية يتم الخروج من 
الحلقة بالقيمة (4) 

؟- عند تشغيل البرنامج ثم النقرعلى زر الأمر'' عرض الأعداد من ١‏ الى؟" '' نلاحظ ظهور صندوق رسالة 111521707 
يعرض الرقم 1 وعند النقر على زر >01() يظهر صندوق رسالة 71552521307 آخر يعرض الرقم 2 وهكذا حتی 
تتعدى القيمة ٢‏ فيتم الخروج من الحلقة التكرارية 


او مو printnumbers‏ زس سم printnumbers printrvumibêrš‏ 





الفصل الدراسى الثانى 
یچ چم هي هښ هس ص ص ص ص ص ص ص ص ص ص هن ص هم همل هي هس همي هي مي چي چي هج جي هم مم مم مم من مم من مم من مس من مض سم 


۱۹ ۸۷۱۷۸۷۸۲۲1 
مذكراتك جاهزة للطباعة 


کک کک لی لی انی انی انی ابی انی انی ي نی مي ي لی مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي مي مي مي مي مي لي دي کې لي دي کې لي دي مي لي اي انی اي لي انی اې لي نی کې لي اي انت لي اي کې لي اي کي اي اي انی انی اي مي يي همي همي خي هي شر 





جو ب ب ب ب ب ب يج يج وج وج وہ ود وہ يج وہ وم وہ ب ب وہ ب ب ب ب يج يج يج يج ب ني نج نه يي يي يج يج يج وج وج يج يج نج نج نج نج ني يي ين 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 


)16)001( تعدیل التدريب السابق لعرض الأعداد من خلال صندوق نص‎ -١ 
)16)0011( اضف صندوق نص الى النموذج باسم‎ -" 
بحيث تطبع الأرقام داخل صندوق النص<16©:1150‎ ٥0۸۹ لاحظ : سیتم التعديل في الكودء‎ 


Designed By: Fatma Abdallah‏ ليم الكود ٥0‏ ) یکتب في اجر ا 8 الحدث Click‏ الخاص برر الأمر 
Button‏ 


Private Sub Button1 click 
Dim M As Integer 


القيمة القديمة ( الموجودة مسبقا 
|القيمةالتديعة (لوجودة سیت | دع e‏ 


11.1 1507:1اع»‎ . Text ٧٠٠.1 )یم 1.1؛ل)ی‎ & 1 
Next 1 
End Sub 


عرض الأعداد من ١‏ الى ۳ 





١‏ الأمر داخل الحلقة التكرارية Me. TextBoxl. 16) & ١١‏ والذى يعنى وضع قيمة المتغبر ۱١‏ بجانب ماهو 
موجود بداخل صندوق النص القيمة القديمة ( الموجودة مسبقا ) (<:1671150) ونم ذلك بكتابة معامل الريط لک 
وظيفة معامل الربط ک: يستخدم فى وصل سلسلتين حرفيتين ببعضهما. 

"- في حالة كتابة السطر المشار إليه بهذه الطريقة 11©.)::]10:1.16<1-1 لن نلاحظ تغیر قيمة المتغير (01/1) 
أثناء التنفیذ وانما سیظھر آخر قيمة فقط وهى ٢‏ لان عرض النتائج سيتم فى نفس ا مكان فيظهر اخر قيمة فقط 








) ټع‎ Designed By: Fatma Abdalla ٠: سر‎ ١ قم بتشفیل البرنامج اننهقسه ہے دح‎ -١ 
123 ثم انقر الزر‎ 7 

؟- يظهر صندوق النص )۲٤×٤۲80×(‏ باٹنموڈج (1"01122) 

كمايلي : 


-٤‏ انقر الزر (1511160111) مرة اخرى 


- 
[223 











الفصل الدراسى الثانى 


حا 


کک لبي لی تی انی انی انی ابی انی کې انی نی مي انت لی مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي نی مي مي مي مي لي دي مي لي دي کې لي اي نی لي اي نی لي لي انی اې لي نی کې لي اي کې لي اي کې لي لی کې لي اي مي مي انی مي يي همي همي خي همي شر 
پل لل لعل لل يل یل یلا یل لل یل یل یلیل یل یل یل يل يل لي رلا رلا لن نل د د د ده دپ د رڅ رر ره رڅ ره هه هه 


بر خر خر خر خر خر خر خر کې ټل ټل ال ال پل پل ټل پل ټل ې کې کې حر حیحص کک کې کې کی کې کې ہی 90 هې ې هې هې هې هې ټل ټل ان اپل هې ې هې هې هې حص هې هې ر 
WWW.CRYP2DAY.COM‏ 
مذكراتك جاهزة للطباعة 























ممم مهمعد م م م ا ھم ع عامممماممامممماعما نامع ممممم مم ھم مم مم ماھ لل ماھ م مد مداه ھام م مام نه شي 


-١‏ لذايتم إضافة الأمر (''''-1<ع01.1'<1150:21.1) قبل الحلقة التكرارية لمسح محتويات صندوق النص 
(TextBox)‏ 0 

"- لعرض الأرقام داخل صندوق النص )1٤×۲80×(‏ بحيث يكون كل رقم في سطر جديد نقوم بتغير خاصية 
(01111111111)الى )1٦٦0(‏ للسماح بعرض أكثر من سطر في وضع تصميم النموذج. 

؟- ما المقصود ب 710111 :هو ثابت حرفي يستخدم لإضافة رمز مفتاح الإدخال وإنشاء سطر جديد 

vbCrLf=Visual Basic Carriage Return Line Feed وهی اختصارل‎ 


الکود ٤٥d‏ يكتب في اجر ا ء الحدث C11‏ الخاص بزر الأمر1:11]]011 
Private Sub Button1 click‏ 
Dim M As Integer‏ 


مسح محتويات صندوق ا لنص '"'' Me.TextBox1.Text=‏ 


For M =1 3 

ثابت حرفي يستخدم لإضافة رمز Me.TextBox1.Text = Me.TextBox1.Text & M & vbCrLf‏ 
مفتاح الإدخال وسطر جدید 1 Next‏ 
End Sub‏ 


al Designed By: Fatma Abdallah 


عرض الأعدك مت ١‏ اللي م 


قم بتشغيل البرنامج ثم انقر الزر' عرض الأعداد من 1 الى3 ”أكثر من مرة 
ماذا تلاحظ : 


نلاحظ مسح محتوى صندوق النص واعادة كتابة الأرقام مرة أخرى. 





الفصل الدراسی الثانى 
هښ چک هي هښ ص هل ص هل ص ص ص ص ص هم هن ص هم همل هم هس همي هي مي چي چي هج جي هم مم هم هن هم هم هن هم هم من مم من هم من مض هخ همي هز 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


حا 


کک یھی لی لی انی انی انی ھی انی کې ي نی کي کي لی مي انت لی مي مي اي کي انت اي مي مي اي مي خي اي مي مي اي مي خي لي دي کې لي دي کې لي دي نی لي اي انی لي لي انی اې لي نی کې لي اي اې لي اي انی لي لی انی لي اي انی انی انی مي مي همي همي خي هي شر 
پل لل لل لعل يل یلا یل یل لل یل یل لل لل لل لل لا لا لل د د دپ ۰ ده 7 رڅ رر ره رر رڅ هه هه 





.ههه همه مهمعد م م م ع ھم 0 عامممماممامممماعما ھھھ مھ ھھھ ھھھ م ماھ ع متمم مد مهاه و موو وو 





قم بالاستفادة من التدريبين السابقين لطباعة جدول ضرب 3 بصندوق النص )1٤×)80×(‏ : 
رڈ 00 ) فی اجر ا ء الحدث ١111‏ ) الخاص بزر الأمر 1511:6601 






Private Sub Button1 click 
Dim M , Product As Integer 


Dim Str As String 
Me.TextBox1.Text "٢ 


For M =1 72‏ 
لاحظ : وضع × و = بین علامتى تنصيص لتطبع كما هی و لم 


ف M‏ هک 6 '' & 3 Str‏ 
المتغبر [N‏ لیت التعويض عنة بقيمتة فى المعادلة 
Product = 3 * M‏ 


Me.TextBox1. Text = Me.TextBox1.Text & Str & Product & vbCrLf 
Next M 
End Sub 










ثابت حرفي يستخدم لإضافة رمز مفتاح الإدخال وسطر جديد 


ور ماب ه- 
-١‏ ثم التعريف اوالاعلان عن متغبر رقمى صحيح باسم (product)‏ ذلك 00193999 به مع كل تغيير يحدث على 
قيمة انتفیر (0/1) (زيادة قيمتها) 

قر التعريف او الاعلان عن متغير باس (57) کمتفیر حرفی 80108 و ذلك 8717۱۷۷۳۳۹70 

"= " يئ M‏ ع" × '' & 3 = 501 ( حیث تم وضع علامتى × وح بين علامتى تنصيص وذلك لتطبع كما هی بنفس 
الشكل كسلسلة نصية مع كل تغبر فى قيمة المتغبر( ۱ ) ولم يوضع المتغير ۷آ بين علامتى تنصيص ليتم التعويض عنة بقيمتة 
الرقمية التی تتغبر بمقدارالزيادة فى المعادلة كالتالى -31 ( و -352 وھکڈا ) 

؟- ثم الربط بين محتوى صندوق النص×50)×ء1 بقيمة التغفر ) بقيمة انتغبرا 01000 بمعامل اثربط لک . 





-٤‏ سؤال : لماذا تم استخدام المتغيرات والاعلان عنها فى البرنامج ؟ 
وذلك للتبسيط و لتسهيل تتبع كود "١١٤‏ البرنامع أثناء التشغيل 








يکن كتابة الكودع0)1 ) بدون استخدام هذه المتغيرات15 7721121 : تابع 


Private Sub Button1 click 


ناتج حاصل الضرب || |شكل حاصل الضرب | | القيمة الموجودة مسبقا] ___ Dim M As Integer‏ 
Me.TextBox1.Text= ''"'‏ 
For M =1 To 3‏ 


Me.TextBox1.Text = Me.TextBox1.Text & 3 & "X'" &M & ' -' &3* M & ےت‎ 
Next 1 


کح )اسما ام |مسسې | اللا د یه 0 , سا هاا الاح ۱3سا گر Fatma‏ چيا ٘لےءہ ےج -ہےدا al‏ 





Sm [1 چا‎ 
a رايت‎ 





الفصل الدراسى الثانى 
هښ چک کي هښ ص ص ص ص ص ص ص ص ص ص هن ص هم هل هي هس همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 





> 


اح ی رای کي کک لی کي نی انی انی ي انی کي ي نی کې ي لی مي مي مي کي مي مي کي مي اي ي خي لی کي خي اي نی مي مي مي کې لي ي کې لي ي کې لي دي کې لي ي کي لي لي انی اې لي نی کې لي ي کې لي ي کې لي لت کې اي اي کي انی اي کي مي همي همي خي هي شر 
لا عا پسياال ‏ ف سن NSE‏ 3 "3 











حا 


.ههه همه مهمعد م م م عم امم مھ امم ام ما عامممماممامممماعما مع مممعامتستممھم مم ممم عم ع متمم مد مهاه و موو وو 





قم بتطوير البرنامج بالتدريب السابق لعرض جدول الضرب الخاص باي رقم يتم ادخاله من خلال مريع نص (<1©:<1150) كما 
یظھر د ي الشكل التالي ۱ ود —- Designed By: Fatma Abdallah‏ لياو 













قم بإنشاء Project‏ یحتوی على 51-5 
نموذج1"01122 واداتی مربع نص<1150<© 1 إدخل رقم جدول الضرب المطلوب | 5×2-0 


523-15 
534-0 
و النص المعروض علية كلمة 55-5 
عرض جدول الضرب بب 
58-40 
529-45 
5210-50 
5211-5 
512-610 


و اداةعنوان 1,3061 وزر1101))011 


اک از فی اجر | ء الحدث »1161 ) الخاص يزر الأمر 1511:1601 
Private Sub Button1 click‏ 


Dim M , Product, NUM As 


Dim Str As String 
NUM = TextBox2.Text جعل المتغير 1ل قيمته تساوى العدد المدخل فى صندوق‎ 


تا : وضع × و = بين علامتى تنصيص لتطبع كما ھی و لم يوضع 2 For M =1 To‏ 
المتغير | او المتغير NM‏ ليتم التعويض عنهما بقيمهم فى المعادلة '" ح '' ه [ هم' 5 '' عق Str = NUM‏ 


Product = NUM * M 
Me.TextBox1.Text = Me.TextBox1.Text & Str & Product & vbCrLf 


ثابت حرفي يستخدم لإضافة رمز مفتاح الإدخال وسطر جديد Next M‏ 
End Sub‏ 


1105:1502 تم التعريف اوالاعلان عن متفر باس (۸۱1۷1) کمتفبر رقمی صحيح وذلك لتخزين محتویات صندوق النص‎ -١ 
NUM = 1 ناس‎ 02.1 ext كما بالشكل‎ 

1 ©:2]1:0:<1 فی عملية الضرب و فی سطر الخرجات فى‎ ٢ ثم احلال المتغبر 1لا مكان القيمة الرقمية‎ -٢ 

ولم توضع بين علامتى تنصیص حتى تاخذ القيمة الرقمية المدخلة بواسطة المستخدم 


الفصل الدراسى الثانى 
هښ چک کي صص ص ص ص ص ص ص ص ص ص ص هن ص هم هل هم هس همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


کک یھی لی تی انی انی انی ابی انی کې ي نی مي ي لی مي انت لی مي مي ي مي مي اي مي مي اي مي خي اي نی مي مي مي مي لي دي مي لي دي مي لي اي مي لي اي کي لي لي انی انی لي نی کې لي اي انت لي اي انی لي اي انی لي لی انی انی انی کي يي همي همي خي همي شر 
پل لل لعل 2 :2 یل یل :2 لل یل یل یل لل یل یل لل لل لا لل لل لل لا لد د ده د د رڅ ره رڅ ره هه هه 


> 


کیم ی ر مھ م م م ا ھھھ مھ عامم مم اممام ھھھ نامع مممعامتم مم ھم مم مم ماھ ھھھ مھ معا مھم مد مهاه مام همام نه ع ده وو 


پل لل لعل لل يل یل یل یل لل یل یل یلیل یل یل یلا يل يل يي رلا رلا يل يي لل د د د د ۰ه د 7 رڅ رر ره رڅ ره هه هد 


۱ 
۲ ۴ کما انها کان قي الزيادة لافتراضیة ( مو جب واحد ) 


تعنى الخطوة أو مقدار الزیادہ 


يمكن - من قيمة البداية أو النهاية أو مقدارالزيادة أن تكون أرقام صحيحة أو عشرد زيت يي جبة اوسالبة ) أو 


مثال١‏ : 
أكتب كود برنامج يقوم بتغیبر قيمة العداد 0111111 ) من 5 إلى 50 بزيادة 2 في كل مرة باستخدام أمر 01۷٠٠)‏ . 
For Counter = 5 To 50 Step 2‏ 
مثال؟ : 
أكتب كود برنامج يقوم بتغيير قيمة العداد 1 من 1 إلى 100 بزيادة 1 في كل مرة باستخدام أمر 0٥...)‏ . 
For 1 = 1 To 100 Step 1‏ 


Or 
For 1 = 1 To 100 


مثال؟ : 
أكتب كود برنامج يقوم بتغيبر قيمة العداد 1 من 10 إلى 2 بإضافة 2- في كل مرة باستخدام أمر )16 . . . -1"01 . 
For i = 10 To 2 Step -2‏ 


أكتب كود برنامج یقوم بتغیبر قیمة العداد أكالتالي ( 19 , 17 ,15 , 13 , 11) باستخدام أمر )<ء1[... 101 
For 1 = 11 To 19 Step 2‏ 
مثاله : 





أكتب كود برنامج یقوم بتغيير قيمة العداد ¡ كالتالي ( 21 , 28 ,35 , 42 , 49 ) باستخدام أمر)<17...-1"01, 
For 1 = 49 To 21 Step -7‏ 


الفصل الدراسى الثانى 


په هي هي هي هي هي هي هښ هي هم هم هم هم هم هم هي هم هی هم هی هم هن هم هس همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 





کک کي کک لی يي انی انی لی نی انی اي نی مي انت مي مي انت لی مي مي ي مي مي اي مي مي اي مي خي اي نی مي مي مي خي لي ابيب مي لي دي کي لي اي کي لي اي کي لي لي انی کې لي نی انت لي اي انت لي اي کې لي اي کې اي لی انی انی انی مي يي همي همي خي هي شر 


.ههه همه مهمعد م م م عام امم ھ امم امعامعامممماممام ماما ھھھ م مھ تم مم ھم مم مم عممعم مممممتمم ماھ م ھھھ ھھھ ماھ م مام نه عت موو وو 


لعرض الأعداد الفردية 
من ١‏ الى١٠‏ 


لعرض الأعداد الزوجية 
من ٢‏ الى ٠١‏ 
لعرض الأعداد التى تقبل 
القسمة 
على؟ من ٢‏ إلى ٢٢‏ 


لعرض الأعداد الزوجية 
مرتبة تنازليا من ٠١‏ إلى ١‏ 


لعرض الأعداد 
من 1.50 الى 0.5 


بتناقص 0.05 كل مرة. 
لعرض الأعداد 
من 1 الى قيمة 8 
بمعدل زيادة قيمة ١‏ 


الفصل الدراسى الثانى 


حا 


پل څل لل لعل يل یل یلا یل لل یل یل یل لل یل لل لل لا لل لد د ن7 په د هڅ رر ره رڅ ره هه هه 


Dim I As Integer 

For I = 1 to 10 Step 2 

Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf 
Next 


Dim I As Integer 

For I = 2 to 10 Step 2 

Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf 
Next 


Dim I As Integer 

For I = 3 to 20 Step 3 

Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf 
Next 


Dim I As Integer 

For I = 10 to 1 Step -2 

Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf 
Next 


Dim I As Single 

For I = 1.5 to 0.5 Step -5 

Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf 
Next 


Dim I, B,C As Integer 

For I = 1 to B Step C 

Me.TextBox1. Text = Me.TextBox1.Text & I & vbCrLf 
Next 


. یمکن تحدید معدل الزيادة للمتغير بكلمة (5160) ثم كتابة قيمة رقمية او متغبر رقمی . 


معدل الزيادة يجب أن يكون سالبا فى حالة وجدود قيمة البداية أكبر من قيمة النهاية (مثال )٠٥٥‏ 
. يمكن لقيمة البداية أو النهاية أو معدل الزيادة أن يكون عدد عشري وفى هذه الحالة يجب تعريف متغبر الحلقة من 
نوع يقبل الكسور العشرية مثل النوع (5101) مثال (ه 


. يمكن لای من قيمة البداية أو النهاية أو معدل الزيادة أن يكون متغير ( ©21131/) (مثال )٦‏ . 





په هي هي هي هي هي هي هښ هم هم هن هم مس هم هم هم هم هی هم هی هم هن هي هس همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


حا ی ھی ال کک لی نی انی انی انی بھی انی کې انی نی مي انت لی مي انت مي مي مي ي مي مي اي مي مي دي کي خي اي نی کې دي مي مي لي ابيب مي لي دي کې لي دي کي لي اي انی لي لي انی اې لي نی کې لي اي کې لي انی کې لي اي کې لي لی کې مي اي نی مي همي همي خي همي شر 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


> 


پل لل لل يل یل یلا یل لل یل یل لل لل لل لل لل لا لل د د د د د ۰ ۰ هڅ رڅ ره رڅ ره هه هه 





هښ ا هم هم هن هم هن هم هن هي هم هم مض هم هم هم همز 





لقد تعلمت تكر ار كود 001 ) محدد لعدد من المرات معروف مسبقا مسبقا باستخدام جملۀ)01..116 1 
-٢‏ جملة م100 ...7711112 1(0 تستخدم لتكراركودع0)1' ) محدد لعدد من المرات غبر معروف مسبقا بنا ء على شرط معين 
؟ - جملة 1000 ...7711112 1(0 تستخدم لتنفيد كود طا لما كان شرط تنفيد جمل التكرار صحيحا 





وطظیفة Atl Callow ١‏ ہ1۵0 


تستخدم هذه الجملة فى تكراركود©0)1' ) محدد لعدد من اثرات غبر معروف نهايته مسبقا إنما بناء على شرط معین 


DIRA GR فائدتضا بعلق‎ 


هی مفيدة فى حالة ٥9‏ معرفة عدد مرات التکراربشکل قاطع ويتم تنفيذها بناء على تحقق شرط معین 





-١‏ تكراراستقبال أسماء طلاب المدرسة فى مربع النص10) 1 والخروج من الحلقة التكرارية ( توقف استقبال الاسماء المدخلة 
فى مربع النص )عند إدخال عبارة معينة مثل 17:10 
؟- تكرارالذهاب الى المدرسة يوميا بناء على شرط معين الا وهو استمرار الدراسة ( طاما الدراسة مستمرة ) 


/ م٢‎ 8! Fo | 


Do While conditional expression 
Code التعببر الشرطى او شرط نهاية التكرار‎ 


ار 





شرح الصیعة العامة 


فى كل مرة يصل فيها البرنامج کی[ 611 0 لا ھا 6+ 6ور رو نا conditional‏ 
-١‏ فاذاكان التعبير الشرطى خطا ٤٥315‏ یتم تنفیڈ أول امر بعد كلمة 1.001 مباشرة 


ب- اما اذاكان التعببر الشرطى صحيح ©121) يتم تنفیذ مجموعة الأوامر التی تلى التعببر الشرطى وحتی اخر امر قبل كلمة 
0 عندما يصل البرنامج الى كلمة 00, 1 فانه يعود مرة اخری الى 6551011( 0 Do While conditional‏ 
لاختبارالتعبیر الشرطى وهكذا وطبقا لقيمة الشرط فإما أن تکون ©1721 فيستمر التكرارأوتكون ©1"215 فينتهي التكراركما 
في الشكل. 


الفصل الدراسى الثانى 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 








70018101 |× ۴3۷۶۶ ثشرط خطا‎ 
Condition is True سر الشرط صحيح‎ 
پا‎ 5 ۱ 7 ۱ „ | Do While نرم‎ 
5 x Do While 0 / : : 
ُ St temenî 1 / 50۸ 1 ١ 
8 a : Statement 2 
: 51316111121 2 Statement 3 
Statement 3 001 of the Do While... Loop 
2 e انجس لمطثر لح‎ 
: ۱ ١ Statement 1 
Statement 1 مہہ‎ 1 3٩ Loop 
"Statement x 


-١‏ في هذا الأمرلا نعرف عدد اثرات التي سيتم تكرارها لان عدد مرات التكرارهنا یعتمد على شرط معين 

. )11016( اثقصود ب ( ۲۲۱۱1 10) تنفیڈ الكود (ع2001)) طاما التعببر الشرطی صحيح‎ -٢ 

-٢‏ یتم تنفيذ الامر Do While conditional expression‏ ا الشر طاو التعببر الشرطی متحقق ( صحيح 

6 ) وعندما لا يتحق الشرط او التعببر الشرطى ( خطأ ©1215 ) يتم الخروج من الدورة 1.001 و تنفيذ ما بعدها مباشرة 
-٤‏ فى حالة عدم تحقق الشرط ©215"! لا یتم تنفيذ ای أوامر داخل الدورة و يتم الخروج منها وتنفين ما بعدها 1,001 


قم بانشاء مشروعاء©[10آ1 يحتوى على نموذج1"'01111 كما هو موضح و عند ادخال رقم فى مريع النص<1©:<11:0 لاستقبا 





مربع النص 1:1305 و ظهورها داخل صندوق 


listbox القائمة‎ 


٢‏ أما النقر على زر'' 





''یتم عرض الأعداد 
الزوجية مرتبة تصاعديا من الرقم ١‏ حتى الرقم ال مدخل 
داخل مربع النص <:1150<: 1 ظهورها داخل صندوق 


listbox القائمة‎ 


الفصل الدراسى الثانى 
هښ هښ هج جز هس مي جح هل هن ع هل هن هم ثح هم ثح هل حنج هس حنج مس هي نحن هم هم هم هم هرن هم هم هم هم هرن هن هم هم هم هرن هن هم مس هز 


WWW.CRYP2DAY .COM 
مذكراتك جاهزة للطباعة‎ 


حا 


کک کي کک لی تی انی انی انی ابی نی کې انی نی مي انت مي مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي مي مي اي مي مي لي دي کې لي دي مي لي اي کي لي اي نی لي لي انی اې لي نی کې لي اي کې لي اي انی لي اي انی لي لی انی مي اي مي مي همي همي خي همي شر 
پل لل لعل لل یل یل یل لل یل یل یل لل لل لل لل لا لا لل د د د د د د د ۰ه ۰ د 7 رڅ رر ره رر رڅ هه هه 





جو و ب ب ب ب ب ب يج وج وج وج وج وج يج يج يج يي ب ب ني ب ب ب ب وج يج يج يج ب نج وہ وہ يي يي يج يج يج وج وج يج يج يج وھ وھ وہ نيج يي ين 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 





فى و(كتك و 
EB;‏ 
يمكن برمجة الكودء ل0١‏ إجر | ء الحدث:[ 11)) الخاص بزر'' أعداد فردية ''بطریقتین كما يلي 


ز۲٢‏ ۶۴ا باستخدام جملة For Next‏ ۲ک باستخدام جملة Do While‏ 


1) Dim (٦, 1 As integer 1) Dim N,I As integer 

2) N =TextBox1 . Text 2) N =TextBox1 . Text 

3) ListBox1 . Items . Clear ( ( 3) 11511501 . Items . Clear ) ( 
4( ] -1 4) For I = 1 to N Step 2 

5) Do While I < = N 5 ) ListBox1 . Items. Add ) 1 ( 
6) ListBox! . Items. Add (I ) 6 ) Next 

T7 I=1+2 

8) Loop 


-١‏ تم الاعلان عن المتغبرات فى كلتا الجملتين و تھ تخصیص القيم التى ستدځل داخل الخاصية ٠)‏ 1 الخاصة بالاداہ 
1 ا الى التغبر N‏ 

"- فى جملة اه نم نحديد البداية والنهاية و مقدارالزيادة السطر( )٤‏ 

- ثم اضافة العدد الى الاداه 15)1507<21. 1[ عن طريق الوسيلة ل ۸ الخاصة بالخاصية 1)61117 


- ثم اضافة الوسيلة ( ) ٠17‏ ) لمسح محتويات الاداه “1511501 | و جعلها فارغة من كل العناصر الموجودة بها 
ه- فى جملة 11ا۷۷ 1(0 نم تحدید البداية بجعل قيمة 1 = 1 والنهاية N‏ ومقدارالزيادة 2 + 1 = 1 السطر( ٤‏ ۷۰) 


تدريب :١‏ قم بنفسك بكتابة الكود الخاص بعرض الأعداد الزوجية. 


-١‏ عند كتابة الكود الخا ض الأعداد الزوجية نقوم بكتابة نفس الكود السابق مع تغبر قيمة البداية فقط و جعلها رقم 
زوجى و لیکن ( ۲ ) 


تدريب ٢‏ : قم بنفسك بكتابة الكود الخاص بطباعة الأعداد تنازليا بدلا من تصاعديا 

الحل 
؟- عند كتابة الكود الخاص بطباعة الأعداد تنازليا بدلا من تصاعديا نقوم بجعل قيمة البداية اکبر من قيمة النهاية ومعدل 
الزيادة يجب أن يكون سالبا 





الفصل الدراسى الثانى محم 
يب يب لی ال ای لی لی لی لی ل۱ی لی لو کی کی گی گی انی نايب گی انی نی ايوب نايب انی انی انی انی نی نی انی انی انی انی انی يب انی انی ای انی بيب انی انی اہی ای يي یں وی وی يي ير 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


کک کک يي انی انی انی ابی انی کې اي نی مي انت لی مي انت لی مي مي اي مي انت اي مي مي اي مي مي اي نی مي مي مي خي لي دي کې لي دي کې لي دي کي لي اي نی لي لي انی اې لي نی کې لي لن انت لي اي انی لي اي کي لي اي کي مي اتی مي مي همي همي خي هي شر 
پل لل لعل يل یل یلا :2 لل یل یل یل یل یل یل یلا يل يل يي ري رلا ري يي ري رل را" لد پا هه 7 7 7777 ره ره ره رڅ ره هه هه 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 





صمم نافذة النموذج التالية لاستقبال عدد موجب فيعرض مجموع الاعداد الفرديةفى الاداه 13ء1[ حتى الرقم الذى يتم ادخالة عند 
الضفط على زرمجموع الاعداد الفردية ويعرض مجموع الاعداد الزوجية فى الاداه 1.2113 حتى الرقم الذى يتم ادخالة عند الضغط 


على زرمجموع الاعداد الزوجية 
قم بانشاء مشروع بحت نموذج1"01-111 كما هه 


12113 عند ادخال رقم مثل 5 ثم النقر على زر'' مجموع الأعداد الفردية ''يعرض المجموع فى الأداة.‎ -١ 
12113 عند النقر على زر ''مجموع الأعداد الزوجية '' يعرض المجموع الزوجية فى الاداة.‎ ٢ 


محموږع ال عداد الف ديد مجموع الأعداد الزوجية 





يمكن برمجة الكودء ٧0‏ ) إجر ا ء الحدث11) الخاص بزر'' مجموع الأعداد الفردية '' بطريقتين كما يلي 


Do While باستخدام جملة‎ ۶۰ For Next باستخدام جملة‎ 8٢٢٢٢٢٢ 


1) Dim N,I1, Sum As integer 1) Dim N,I1, Sum As integer 
2) N =TextBox1 . Text 2) N =TextBox1 . Text 

3( ١-1 3) For I = 1 to N Step 2 

4) Do While I > = N 4) Sum = Sum + I 

5) Sum = Sum + I 5) Next 

6) 1-1 + 2 6) Label3 . Text = Sum 

7) Loop 

8) Label3 . Text = 


























Sum 





: 
-١‏ تم الاعلان عن المتغبرات فى کلتا الجملتين وتم تخصيص القيم التی ستدخل داخل الخاصية ٠)‏ 1 الخاصة بالاداه 
1 ا الى انتغیر N‏ 

۲- تم تخصیص التغبر 511111 كمخزن لعملية الجمع عن طریق آ + 511111 = 511111 

)6١ ٢ ومقدارالزيادة 2 + 1 = 1 السطر(‎ ٧۷ فى جملة ۷۷11 100 تم تحديد البداية بجعل قيمة 1 = 1 وائنهاية‎ -٤ 





تدريب ١‏ : قم بنفسك بكتابة الکود الخاص بعرض مجموع الاعداد الزوجية. 
العل 


- عند كتابة الكود الخاص بعره الأعداد الزوجية نقوم بكتابة نفس الكود السابق مع تغبر قيمة البداية فقط و جعلها 
رقم زوجى و لیکن ( ٢‏ ) 


الفصل الدراسى الثانى 
هښ هښ هج جز هس هي جح هل هن ع هل هن هم هم هن هم حنج هل هي هي هس مم مم هي نحن هم هم هم هي هرن هم هم هم هم هرن هم هم هم هم هرن هم هم من هخ هز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


کک کک لی يي نی انی ابی انی انی ي نی کې انت لی مي انت لی مي مي مي مي انت اي مي مي اي مي خي مي مي مي مي مي خي لي دي مي لي دي کې لي اي کې لي اي کي لي لي انی اې لي نی کې لي اي کې لي اي کې لي اي کې اي لی مي مي انی مي مي همي همي خي همي شر 
پل لل لل لعل يل یل یلا یل لل یل یل لل لل لا لل لل لا لا لا لد د د هه ده ۸ رڅ رر ره رڅ ره ره ره هه 








N 


حا 


پل لل لل لعل يل یل یلا یل لل یل یل یل لل يل لا يل يي يا رلا ري ري رن پا د دک ن7 7ه 777 هڼ رڅ رر ره رر رڅ ره هه هد 


NNNNNNNNN NNN‏ دز ANNAN NNN‏ ههد هدند ها هددد هند ودد ههه څک 
و وه 7 للصف الثالث الإعدادى 






هښ هي هي هي هي هم هي چم هم هم هم هم هل هم هم هم هم هن هي هم هی همي هم هي همي چي چمي چي دص چم چم هم همي هم هم هن هم هم هم هن هم هن هم هن هم هم هم مض هم هم هب هز 





Proceduresil.l2}l 





عند إضافة نافذة نموذج1"01111 جديدة ينا تصنيفءءدا٣‏ جديد باسم نافذة النموذج 1017011 و فى نطاق هذا التصنيف 
يمكن الاعلان عن ؛:- 

-١‏ یمکن الإعلان عن إجراءات الاحداة 010660016 1/111 فى نطاق التصنيف11255) 

"- يمكن الإعلان عن امتغبر ١‏ ت ۲۵٠317165‏ والثوابت01151211:1١)‏ سواء داخل نطاق إجراءات الأحداث )1/1711 
56 او نطاق التصنيف11255) 

؟- يمكن الإعلان عن ما يسمي بخل1210 مثل جمل11...)122 و066 ...101 وغبرها 


مثال :كود عرض الاعداد الفردية و الزو 
بدا الاعلان عن التصنيف 





Class ۶۰٢1‏ 11-2 طتظ نا 
Dim total As Integer‏ 















Private Sub Buttonl Click(ByVal sender As System. لزنالا‎ 





عرق الأعدات I‏ سے | الي 10 ' 
| نطاق 

Lal[e1l1.TegL = ۷ 
الاجراء‎ 


For 1 = 1 ToD I10 Step ر‎ 2 
Labell. Text = Lpabel1l1l.Text طش‎ " " & 5 
Hert 


نهاية الاعلان عن الاجراء End Sub‏ 


Private Sub Buttonz# LClIIck (ByVal sender As System. LbjJec 
:10 عرض الأعداد الرووجية هن 1 إلى‎ 
جھ 1 173ن[‎ Integer 
لاملا‎ Teg = w= 
For 1 = ل‎ To I10 Step 2 
11ے لاق لا‎ Text = Lpabell.Test كه‎ " " 2 1 
Hert 


نهاية الاعلان عن التصنيف 

Enid Class 

واجهة المستخدم لعرض الاعداد الفردية و الزوجية ستظهر كما هو موضح ' 
لاحظ: 


1011111 ثم الإعلان عن تصنيف 1255 ) نحت اسم‎ -١ 


9 عرض الزوجي والفردي 





٢ت‏ الإعلان عن متغبرا ت ۲۵131165 تحت اأسماء۱00131,1 
؟- إجر اءات Event procedures‏ 
تحت اسمء1112,1:111]60112_)1111-)_1111]0111 





الفصل الدراسى الثانى 


کک کک لی لی انی نی انی بھی نی انی ي نی مي انت مي مي انت مي مي مي مي مي مي اي مي خي اي مي خي اي نی مي مي مي خي لي دي کې لي دي مي لي اي مي لي اي نی لي لي انی کې لي نی کې لي اي کې لي اي کې لي اي کې لي اي انی انی اي کي يي همي همي خي هي شر 


+0۷ ۸۷۱۸۷۷۸۷ 
مذكواتك جاهزة للطباعة 





ممم مم عمد م م م ا ھم عه عامممماممامممماعما مع مممم تم مم ھم مم مم ماھ ع مھم مد مهاه ھام مام نه شل 


هو مجموعة من الأوامر والتعليمات 001 ) نحت اسم ما وعند استدعاء هذا الاسم يتم تنفيد هذه الأوامر 
والتعليمات. 





انواع الاہزاءات فل لفن 1ک Visual Basic‏ 


١‏ الاجراء الفرعى 5111 وهو لا يعود بقيمة ٢‏ الدالة ١101661017‏ و هی تعود بقيمة 


قالحت الاب( Procedure‏ 


-١‏ یعلن عنها مرة واحدة ويمكن استدعاؤها العديد المرات 
- توفير تكراركتابة©0)1)) في أماكن استدعاء هذة الاجراءات ۲۲۱۸۰۸۱۷٢٥٥۶‏ 


Sub هرك‎ 


القدف مل الاعلاں کل ال(زاء 51 








) 1355 في حالة اذا ما كان لدينا کود0۸٥) سيتكرر كتابته في أكثر من موضع داخل التصنيف‎ -١ 
بهدف تنظيم كتابة الكود00)1') حتي يسهل قراءته وفهمه ومن ثم تعديله اذا لزم الأمر‎ -" 
Sub ۱/۱۱١ عل‎ 0۱٧۱۷٧۱١ المیفت العامت‎ 


[ وسائط الإجراء Sub Name (Parameters)____f‏ ا بداية الاجراء | 


Code 


مجموعة الاوامر التى تنفذ عند استدعاء الإجراء ظ 


5111 يبدأ الإعلان عن الإجراء باستخدام الكلمة‎ -١ 

؟- كلمة ١1211:‏ تشبر الى اسم الإجراء ٧٧۰0٥006‏ الذى سوف يستدعي من خلاله 

؟- الوسائط ۳٠٣۲٠1)‏ هی القيم التي سیتم استخدامها - كود الاجراء عند استدعاء الإجراء ۲۲۱۰۰۱۱٢‏ 

Functionalls أو‎ ٥0:٥35 وسيط الإجراء ۲۲۱۸۰۰۱۱۷۲۰ إما أن يكون قيمة مجردة أو متغبرع1 121121 أو ثابتا‎ -٤ 
هو مجموعة الأوامر والتعليمات التي ستخزن داخل الإجراء والمطلوب تنفيذها عند استدعاء الإجراء‎ ٠006 الكود‎ -٥ 

End ينتهى الاجراء بکلمة اا5‎ -٦ 





الفصل الدراسى الثانى 
هښ جز هس هي جز هس مي جح هل هن هل هل هن ع ثح هم ثح هل هي هي هس هي مم مس مم هم هم هن هن هم هم هم هم هرن هم هم هم هم هرن هم هم مس هز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


حا ی ھی ال کک لی لی انی انی انی بھی انی انی ي نی کي کي لی مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي مي مي مي مي خي لي دي مي لي دي کې لي اي کي لي اي لي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي کې لي لی انی انی اي نی مي هي همي مي همي شر 
پل لل لل لل یل یل :2 لل یل یل یل لل یل یلال لل لعل لا لا لن د د د د 1 رر ره رر رڅ ره هه هد 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NN NNNNNNNNNNN NNN, 
ذكرة النور د : للصف الثالث الإعدادى‎ 


-١‏ أن الكودع0)1') المكتوب داخل كل من اجراء الحدثع:21:06)0111 1/7121 الخاص €1 _0۸1)) 8u‏ لطباعة الاعداد 


الفردية و الكودء C0٠١‏ المكتوب داخل اجراء الحدث :13060112-111 الخاص بطباعة الاعداد الزوجية فى الشكل السابق 


رقم ١‏ متكرر ما عدا قيمة البداية في عملية التكرارحيث في الزوجي بدأت بالقيمة ( ؟ ) وفي الفردي بدأت بالقيمة )١(‏ 
"- يمكنك أن تستخدم الإجراء 5111 لتجنب تكرار الكود 


د ع تسرف 1ئ6 ٧۱١۱‏ 1۱۵ ه2 





يمكنك أن تستخدم الإجراء5111 في عند كتابة الكود ٥0‏ ) 


() جع ع و رابوم دک Sub‏ 


9 : Dim 3 AS [Integer 
بدایه الإعلان عن الاجراء‎ Label1.Text = ۴ 


For د3‎ = 1 To 10 Step 2 


تاي " " ع Label1 .Text Label1.Text‏ نهايه الإعلان عن الاجراء 
Hext‏ 


End Sub 


E] 213513 Class Forml 
Dim 2515141 AS صا‎ 








طن . ۲20 ک اک LlickE( ByVal sender As‏ ذفان نا افلا Private Sub‏ [-] 
شن الأعداد القردية هن 1 پإئی 10" 


استدعاء الاجراء فی الحدث ما6116 80110111 () 51034007۳۵5 


5124 Sub 








طن . سے کک Private Sub Burton2 Click(ByVal sender As‏ 5 
عرض الأعداد الزوجية من 1 إنى 10" 


۱ () 511050006222 
سے لحد < 
استدعاء الاجراء فى الحدث End Sub 80110112 Click‏ 


End 1-5‏ ے 





5111 يبدأ الإعلان عن الاجراء باستخدام الكلمة‎ -١ 
50۱۷ 0011071٢١۸ اسم الإجراء الذى سوف يستدعي من خلاله الإجراء‎ -" 


؟- الكود ٥06‏ هو مجموعة الأوامر داخل الإجراء والمطلوب تنفيذها عند استدعاء الإجراء 

End Sub ينتهى الاجراء بكلمة‎ -٤ 

۵- تم استدعاء هذا إجراءات فى الأحداث121166011_)11112 رءآ 017 -0100012ط 

”- عند اختبار البرنامج و عند الضغط على مفتاح زوجي ومفتاح فردي نجد أن كل منهما يعطي نه 
اگ أن قيمة بداية عملية التكرارواحدة وهي القيمة )١(‏ 





الفصل الدراسى الثانى محم 
يب ای لی ال مل نايبب نايبب لی لی لی گی یی کی گی گی گی انی ايب گی گی نی انی نايب انی ای انی انی انی انی انی انی انی انی نی گی انی انی انی انی بيب يب بي یں ای وی وی وی وی ا aC aC‏ 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


ای ای لح یھی لی يي انی انی ابی نی کي انی نی اي کي ھی مي مي مي مي مي مي مي مي اي مي مي اي نی خي انی مي کې مي مي کې لي دي کې لي دي کې لي دي نی لي اي کي لي لي انی اې لي نی کې لي اي انت لي انی کې لي اي کې لي لی انی مي انی مي مي هي همي خي هي شر 
پل لل لل لي یل یل :2 لل یل یل یلیل یل یل لل لل لعل لل لد د د ۰ ره د ۸ رڅ رر ره رڅ ره ره هه 





.ههه هنم مهمعد م م ع مھ امم ام ما عامممماممام ماما مع مممعامتسممھم مم مم عم ع ل و موه وو 





sub ShowdddûrEven (| 
Din i 258 77 
11,1811ع80ا‎ = "" 





ehe lo 10 Step 2 
۴11:12۲ = 50ا‎ 11:183 E " "£ 
آ1‎ 
End Suk 





الاعلاں 0۱ الوسائجا ( المعجطیات ) تي نوودب ويا واستتدامة 


ولحل المشكلة و تغبرقيمة البدايا 
-١‏ لابد أن يستقبل الاجراء 0014100117۲۷ 0۷۷ 1ا؟ قيمة اما )١(‏ للارقام الفردية او ( )٢‏ للارقام الزوجية عند استدعاءه 
١‏ - اضافة متغبر باسم ]5121 كوسيط ۲31۰310761 و عند استدعاؤه تحدد قيمتة ما اذاكان سيتم عرض الأعداد الفردية أم 


الزوجية 









DUCTONL 110115181 31121 £‏ لللاك 012117312 
فر الأعداد القردية بن 1 إلى 10 
چا 1 000:070 5000 
End Sul ۲‏ 


ا (ByVal)‏ 00001010 0010 للا 
LIN 1 ۸8 101‏ 












تلبذ يدا Argument‏ 


۱/٧81 sender ¢ 


باقلا ٧1۲۵۸٤ ub Dutton‏ َ 7۷11817 = ,851ر 
مر ۹ 1 | 


زوبية لن 1 إلى 10 
|2| 510۷00017 
End dul‏ 


-١‏ ثم الإعلان اجراء P۲٥٤٤ du۲۴‏ تحت اسم ShowOddO0 rE ven‏ باستخدام الكلمة5111 والاعلان عن 
Parameter‏ تحت اسم ]5121 باستخدام الكلمة 171721 حيث نم استخدامه في الكود حتى يمكن تحدید قيمة بداية 


عملية التكراروبناء علية تعرض الأعداد الفردية أو الزوجية 
-٢‏ تم استدعاء الإجراء 0۹40171۲۷ 5100۷۷۰۷ مرتين مع إعطاء قيمة مختلفة تحدد هل يتم عرض الأعداد الفردية أم 
الزوجية, يطلق على هذه القيمة ]41-5111111 





O OOOO OOO OE OOOO OOOO OOOO 


الفصل الدراسى الثانى 
ج٦‏ شس ہے ےج 555990702222527 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


پش کک لی تی انی انی انی ھی انی کې ي نی کې انت مي مي انت لی مي مي اي مي مي اي مي مي اي انی خي اي مي مي اي مي کې لي دي کې لي دي مي لي دي لي لي اي کي لي لي انی انی لي نی کې لي اي کې لي انی انی لي اي کي لي لی انی مي اي نی يي همي همي خي هي شر 





هده هده 500000000010101 
ذكرة النور د : للصف الثالث الاعدادى 






٠ 


1721:2111 11 يمكنك عند الإعلان عن الإجراء ©:1”10©)1111 استخدام أكثر من‎ -١ 

استدعاء هذا الإجراء Procedure‏ 

؟-فى المثال السابق ثم استخدام وسيط 121211111 واحد لتحديد قيمة البداية فقط وظلت قيمة النهاية فى الأمرين 
موحدة وهى ( 10 ) 

فماذا لوأردنا أن تختلف قيمة النهاية أيضا کان نعرض الأعداد الفردية من ١‏ الى ٠١‏ وونعرض الأعداد الزوجية من ۲ الى ٠٢‏ مثلا 
نما هو الحل ؛ الحل هوالاعلان عن أكثر من 112111666٣‏ 


Parameters CJo اال إهاار‎ JE} 
عزيزي الطالب يمكنك تطوير الإجراءددء512077)()01010)(11/7 بحيث يستقبل قيمة البداية وقيمة النهاية في عملية التكرار‎ 








كما هو موضح بالشكل 


Sah 58003867772 ) yal rar )1s ٨د‎ 
Dim i As Integer 00 
۵0611.16۲ = ٥6 


Tor i ١:7 ددد‎ 2 
Label. Text = E € 1ع"‎ 


Next 
End Sub 








الفصل الدراسى الثانى محم 
ليب يب شی می ای ال لی لی لی ای ا کو O O O O O O O O O‏ نايبب انی ای انی انی انی انی انی انی انی انی انی يب انی انی ای نی بيب يب انی يي وی و وی وی يي ير 


۸۷۱۸۷۷۷۸۷۷606 
مذكواتك جاهزة للطباعة 


حا 


کک کي کک لی نی انی انی انی لی انی کې انی نی مي کي لی مي انت مي مي مي مي مي مي اي مي خي اي مي مي اي مي کې اي مي خي لي دي مي لي دي کې لي اي کې لي اي لي لي اي انی اې لي انی کې لي اي انت لي اي کې لي اي انی اي لی انی انی انی مي مي هي همي خي هي شر 
پل لل لل لعل يل یل یلا یل لل یل یل یلیل یل یل یل يل يل يي رلا رلا يل ين لن د د ده 7ه ه٨‏ رڅ رر ره رڅ ره هه هه 








جو ب ب ب ب ب ب يج يج وج وج وج وج وہ وہ يج يج مم وہ وہ وہ ب ب ب ب وج يج يج يج ب نج نج وہ وہ يي يج يج يج وج وج يج يج يج نج نج وہ ني يي ين 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 





Private Sub Buttonl Cl1cE{(ByVal sende 
۱۹0 عرض الأعداد القزدرة من 1 الى‎ 


]10 (72)12 لت 


(ShowOddOrEven) 





kk 2193 sub Burronz2 Click(BYVal sende 
5۳5 10 عرض الأعداد الزوجية من 1 إلى‎ 
ط5‎ 07000000777۳82 )2 10| 
End تناد‎ 


مع إعطاء قيمتين 





-١‏ تم الإعلان عن وسيطين 12121211 الأول باسه) ٥17‏ الثانى باسمر1,251]772111 
"- نم استخدامهما داخل الكود لبداية ونهاية التكرار 
"- عند استدعاء الإجراء لابد أن تعطي قيمتين قيمة للبداية و قيمة للنهاية 


-١‏ يمكنك استدعاء الإجراء أى عدد من المرات في برنامجك. 


٢‏ يمكنك أن تتحكم في عرض الأعداد الفردية أو الزوجية 

؟- يمكنك أن تتحكم فی نطاق الاعداد 

5 

عند اعطاء القيم من (35 و5 ) فستعرض الأعداد الفردية من 5 الی35 وإذا أعطينا القيم 
الأعداد الزوجية من 8 الي 45 





Private Sub Button Click [ByVal 521 private Sub 8۳۲57 ۳11۳۷ ز۸ نتارۃ)‎ sander ia 
راان ات‎ TEND | 2 7 T3] رو ڈو ات‎ ٢ وا و لابا‎ 5 1 5 / 3 ۱ 


End Sub End Sub 


په ه ن. الأعداد الدوسة من ۸ ال ت 
عرض الأعداد الفربية من ٥‏ إلى ۴٣‏ عرض الاعداد الزوجية من ۸ إلى د؛ 


الفصل الدراسى الثانى محم 
شی لی لی لی ال ای لی ل۱ی لی ا لو کی ابيب گی گی انی ايب گی ای نی انی انی انی ای انی انی انی انی انی انی انی انی انی انی انی انی ای نی بيب انی انی اہی گی يي یں وی وی يي ير 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


> 


کک اٹ یھی لی تی انی انی انی ي نی کې ي نی کې کي ي مي مي ي مي مي ي کي مي اي ي خي اي کي اې اي نی مي اي ي کې لي دي کې لي ي کې لي اي کي لي اي کي اې ي انی اې لي ي کې لي اي کې لي ي کې لي ي کې اي لی کي مي انی کي مي همي اک خي هي شر 
پل لل لل لل لل یلا یلا يل لل یل یل یلیل یل یلا یل لل لعل یلال لل لا لل د هه د ه7 رڅ رر ره رر رڅ ره ره ههد 


ممم مم عمد م م م ا ھم عه عامممماممامممماعما مع مممم تم مم ھم مم مم ماھ ع مھم مد مهاه ھام مام نه شل 


و 1 
عبارة مجموعة من الأوامر تحت اسم معين يفضل أن يكون معبراعن وظيفتها ويتم تطبیقھا على مدخلات أووسائط 
015 نعود بقيمة 


Funct1on dJ 019 0/۱۷١ 0۱0 0 


-١‏ في حالة إذا ما كان لدينا کود ٥0‏ سینتح منه قيمة نحتاجها 
مثال محيط دائرة ,. مساحة مرخ » صافي أجر العامل . الضريبة ا مستحقة ... الخ 
"- القيمة التى ستنتح من الدالة يمكن استخدامها أثناء تنفين تعليمات البرنامج او اخراجها للمستخدم 


Functon dJ © 9 ۱ل‎ ١۱ العام‎ 21۳۱ 


unction Name (Parameters) As 6‏ 
نوع بيان القيمة الراجعة من الدالة 


مجموعة الاوامر التى تنفذ عند استدعاء الإجراء Return Value‏ 


القيمة الراجعة من الدالة 


تنزح الصيفك العامة 


-١‏ يبدأ الإعلان عن الدالة باستخدام الكلمة1"111:)101 

؟- كلمة 1212 تشير الى اسم الدالة 111011 الذى سوف يستدعي من خلاله 

؟- الوسائط ۳3131011615 هی القيم التي سوف تستقبل عند استدعاء الدالة 1"111:1101 
0-4 تحدد نوع البيان الخاصة بالقيمة الراجعة من الداله:1'0111]1011 

-٥‏ الكود 001 ) هو مجموعة الأوامر والتعليمات التي ستنفذ عند استدعاء الدالة1"1111)1011 
Return ۷-٦‏ هوالقيمة الراجعة من الدالة 

1.1101 011161011 ينتهى الإعلان عن الدالة باستخدام الکله‎ -٧ 





الفصل الدراسى الثانى 
هښ هښ هج جز هس هي جح هل جز هل هل هن هم هم هنز هم ثح همل هم هي هس هي نج چم هي نحن هم هم هم هن هرن هم هم هم هم هرن هم هم هم هم هرن هن هم مس هز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


کک کک لی تی انی انی ي ابی انی انی ي نی مي انت مي مي لي لی مي مي مي مي مي اي مي خي اي مي مي اي نی مي دي مي کې لي دي مي لي دي کې لي اي لي لي اي لي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي انی اي لی مي مي اي مي مي همي همي خي هي شر 
پل لل لعل لل یل یل :2 لل یل یل یل لل یل یل لل لعل لا لل د د د ۰ د د د ۸ د رڅ رز رر رر رڅ هه هه 


حا 


.نف ههه همه امم امم ما م عم امم ھامم ام عم عامممماممامممماعما نامع ممممم مم ھم مم مم امه ممعممممممتمم مم مد مداه ھام م مام نه ههه 


۹ 
لسهر 


¢ 
خکیھہںھہگ یگ یک یکہیکہیکیک ہیک لل لل لل لعل لعل لعل لعل لعل لعل لعل لل یل یل یل یل یل یل یلیل یلیل یلیل یل لل یل یلیل لی يي يي ري ري ري ري رل لا لل پل ٥ ٥‏ ۹ ۹ ۹ 


-١‏ قم بإعداد نافذة النموذ ج٧0‏ بالشکل التالى لحساب مجموع رقمين 
"- قم بفتح نافذة الکود ١001© ٧۷۱1100‏ ) بالضغط على مفتاح 1"7 
اکتب الكودع00 ) جہ 





تدریبات dJ JE‏ 7٥ء‏ ص۲ 


العدد الأول 


النتيحة: 


Publ1: Class 55 
Function Sum (ByVal First As Single, ByVal Second As Single} As Single 
Dim total As Single 
tatal = Firat + Second 
Return total 
End 01 
End 53 


Function يبدأ الإعلان عن الدالة باستخدام الكلمة‎ -١ 

؟"- كلمة 51111 تشبرالى اسم الدالة الذى سوف يستدعي من خلاله 

-٢‏ الوسائط ۳۹1۰3111٥۳۶‏ هما Fst‏ و Second‏ و( ټم الاعلان عنهما باستخدام الكلمة 1771721 و تحدید نوعهما 
داخل القوسين من النوع ©1ع5112) و كذلك الدالة خارج القوسين من النوع 5101 ( رقم عشرى ) 


-٤‏ ثم الإعلان عن متغیر باسم[101)2 من النوغ ۱121 و تخصيصة لجمع قیمتی )۴۲5 و[56©011)0 
ه- ارجاع قيمة المتغبراد101' باستخدام الامراد)ه1 Return‏ 

Return ۷-٦‏ هوالقيمة الراجعة من الدالة 

۷- نهاية الإعلان عن الدالة باستخدام الكلمة:1':11011'111111011 

۸- القيمة01]2[1] يتم نخزينها في اسم الدالة511111 





سد عاء الدالل ٥صتاڈ‏ 


- قم بإنشاء اجراء الحدث الخاص بزر الامر 111٦0111‏ ثم اكتب الکود٥٥0٥)‏ 


۰ 


عق (ByVal sender‏ کت للا Private Sub Buttonl‏ 
اغا لا ۔ 1215521 تل = 5112131 ûs‏ 2 سسدتا 
Text‏ ہت دن کائ کت = 51111 As‏ لت 1111[ 





Labe14.Text = Sum(x, زی‎ 
End Sub 


الفصل الدراسى الثانى 


هښ هي هي هي هي هم هي چم هم هم هم هم هل هم هن هم هم هن هم هم هی همي هم هي همي چي چمي هي چي مي چم هم همي هم هم هن هم هم هم هن هم هن هم هن هي هم هم مض مس هم هم همز 


WWW.CRYP2DAY.COM 
مذكواتك جاهزة للطباعة‎ 





اع یھی لح یھی لی نی انی نی ي ھی انی انی ي نی کې کي لی مي انت لی مي مي ي مي مي اي مي مي اي کي خي اي مي مي مي مي کې لي دي کې لي دي کې لي اي مي لي اي کي لي لي انی اې لي نی کې لي اي کې لي انی کې لي اي کې لي اي انی انی اتی کي يي هي همي خي هي شر 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


1 e×)85 0×1 الخاصة بالأداة‎ ١×٤ ثم الإعلان عن متغبر باس × وتخصیص مدخلات المستخدم له فى الخاصية‎ ١ 
10150122 ثم الإعلان عن متغبر باس ر ۷ وتخصيص مدخلات المستخدم له فى الخاصية )ی٧ الخاصة بالاداة‎ ٢ 
الخاصة باداة التحكم 1.2114 بعد استقبال القیمتین × و۷‎ ٢) ثم تخصيص قيمة الدالة511111 للخاصية‎ -" 


: ١221:12212©5ت‎ 0٤7 
يمكن تخصیص قيم لها أثناء الإعلان و أثناء سير تنفيذ تعليمات البرنامج وكذلك استخدام القيم المخزنة بها.‎ 


يمكن تخصيص قيم لها أثناء الإعلان فقط وكذلك استخدام القيم المخزنة بها 


ھ٢٢8‎ 


لايمكن تخصيص قيم لها وانما تستدعى فتنتج قيمة تخزن بها ثم يمكنك استخدام هذه القيمة المخزنة بها. 


لاحظ: 
يفضل تسمية الدوال1"1111]10115 تسمية متعلقة بوظيفتها 








اه ناتج الجمع 


-٤‏ قم بالضغط على زر۴5 ثم أدخل القيم كما هو موضح بالشكل 


لاحظ أنه يمكنك أن العدد الأول ۲۹ 


١‏ - تعلن عن داله1'1111©1011 


۱۷ الخاصة بها العدد الثاني‎ ٣۳٠16) ٣د تحد‎ - ١ 


؟- تحدد نوع اFunctionalld‏ 
-٤‏ تکتب الكودع0)1 ) في نطاق هذه الداله:1'011111011 سسسسسا 


ه- ترجع قيمة باستخدام Re)1۲7‏ 7 


جميع الدوال 1111111011 تستخدم في الطرف رف الايمن من من n‏ التخصيص للحصول على نانجها 
"- هناك دوال لا تاخذ أي وسائط مثل الدالة () ٧٠٧٩٧٧‏ فی حين أي دالة12111210 لابد وأن يكون لھا ناتج 


؟- الاجراءات 5111 لا يجوز استخدامها في أي جملة تخصيص 

910 يعتبر اجراء من الفوع‎ 117:11) ٧۳٣66001 اجراء الحدشجی‎ -٤ 

0:٥305 وسيط الاجراءع:1”10©6)1111 إما أن يكون قيمة مجردة أو متغبرع1 121121 أو ثابتا‎ -٥ 
٢111٥٥0۸0 أو داتلة‎ 





الفصل الدراسى الثانى 
هښ هج جز هس مي هل هل هل جز ع هل هن ع ثح هم ثح همل هم هي هس هي مم مس هي نحن هم هم هم هم هرن هم هم هم هم هرن هن هم هم هم هرن هن هم مس هز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


کک کي کک لی يي انی انی لی نی انی اي نی مي انت مي مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي نی مي مي مي خي لي دي مي لي دي کي لي اي کي لي اي کي لي لي انی کې لي نی انت لي اي انت لي اي کې لي اي کې اي لی انی انی انی مي مي همي همي خي هي شر 
پل لل لل لعل لل یل یل یل لل یل یل یل لل یل یلال لل لعل لا لل لل لل د ۰ه دپ د رڅ رر ره رڅ ره ره ره هه 


جو ب ب ب ب ب ب يج يج وج وج وج وج وہ وہ يج يج مم وہ وہ وہ ب ب ب ب وج يج يج يج ب نج نج وہ وہ يي يج يج يج وج وج يج يج يج نج نج وہ ني يي ين 
مذكرة النورفي الحاسب الآلي للصف الثالث الإعدادي 





gC 
431388 
Function قارن بین الاجراء 5111 والدالة‎ 


Function الدالة‎ Sub الاجراء‎ 


لا لايعود بقيمة لا تعود بقيمة 

لا ليس له ناتج لا لها ناتج 

لا لايستخدم فى اى جملة نتخصيص لا تستخدم فى الطرف الايمن من معادلة التخصيص للحصول على نتائجها 
لا بعضها لا يأخذ وسائط مثل الدالة 71077 





الهدف من الاعلان عن الإجراءط511 والدالة Function‏ 
-١‏ في حالة إذا ما كان لدينا کود ل0٤‏ سیتکرر كتابته في | ١-ضي‏ حالة اذا ما كان لدينا كود ٥۱۸‏ سينتج منه 
أكثر من موضع داخل التصنيف11255) قيمة نحتاجها 
"- بهدف تنظيم كتابة الكودع000) حتي يسهل قراءته "- استخدام القيمة التى ستنتح من الدالة أثناء تنفیذ 
وفهمه ومن ثم تعديله إذا لزم الأمر تعليمات البرنامج او اخراجها للمستخدم 





الفرق بين التغبر ۷۹11811 و الثابت Constant‏ والدالة Function‏ 


التغر ٧21131716‏ الثابت 011513101 الدالة Function‏ 


يمكن تخصيص قيم لها أثناء ١‏ ۱ 
0 لايمكن نخصيص قيم لها وانما 


تستدعی فتنتج قيمة تخزن بها 


الإعلان و أثناء سير تنفیذ تعليمات 
البرنامج 





الفصل الدراسى الثانى محم 
يب لحب شی لی تيبب نايبب لی ال لی لی ا کو O O O O O O O O O‏ انی نی ای انی انی انی انی انی انی انی انی انی گی انی انی انی انی بيب يب انی يي گی یں aC aC aN aC‏ 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


حا 


ا ای جج کک ابيب لی انی انی انی ابی انی کې ي نی کي انت لی مي انت لی مي مي اي مي مي اي مي مي اي مي خي اي مي مي مي مي مي لي دي مي لي دي کې لي اي انی لي اي انی لي لي انی اې لي نی کې لي اي کې لي اي انی لي لت انی لي اي انی انی انی مي مي همي همي خي هي شر 
پل لل لعل لل 2 :2 یل یلا :2 لل یل یل یل لل یل لل لل لل لا لل د د دپ هه هن رڅ رر ره رڅ ره هه هد 


.ههه همه مهمعد م م م ع ھم 0 عامممماممامممماعما ھھھ مھ ھھھ ھھھ م ماھ ع متمم مد مهاه و موو وو 


ووو و 1 1 













أسئلة 
)١(‏ اجب عن الأسئلة مستعينا بالكود التالي: Private Suh 285081 (By'‏ 
أ- يتم تنفيذ الكود عندما يتم الضغط على 587 هه Dim H‏ 
بستیریں على أداة التحكم .................. . (اكمل) 3 10 1 = )1 For‏ 
MsgBox (Hl ۱ ۱‏ 
ب۔ تم استخدام الامرز وار للاعلان عن ۸ 5 ۱ ۱ 
7 عا 
(متغير - ثابت ) هن نوع 5 Fnd Sub ۸٨۸٨٨٨٨١٨‏ 
ت- اسم المتغير المستخدم في الحلقة التكرارية شو: ............. . 
ش- قيمة بداية الحلقة التكرارية ...........؛ وقيمة النهاية .......... وقيمة الزيادة ......... . 


ح۔ الكود الذي یتم تكرارة شل nnn‏ 


(؟) اجب عن الأسئلة التاليةء مستعینا بالكود: 
Private Sub But Repeat Click (ByVal sender As System.Opject,‏ 
Dim m As Integer‏ 
Me.Lebell. Text = ""‏ 
For m > 5 To 9 Step 2‏ 


Me.label1.Text = Me.label1. Text & 91 & vbCrLf 


("انتهى البرنامج") 0158130 


End Sub 





الفصل الدراسى الثانى 


٣ے‏ مہ شس سے ده نز دن .سد 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


کک کک لی لی نی نی ي ھی انی انی ي نی مي انت لی مي انت مي مي مي اي مي مي اي مي خي اي نی خي اي مي مي مي مي کې لي دي لي لي دي کې لي اي کي لي اي کي لي لي انی اې لي نی کې لي اي انت لي انی کې لي لی کې اي اي مي مي انی مي مي هي همي خي هي شر 


> 


و وھ و مھ م م م ا ھم مھ ع ھھھ ھھھ مھ مھ ھھھ ھھھ م عممعممممممتمم ماھ م مد مهھ ھام همام نه شي 


کہھہۂہۂہۂہیۂھہکہکی۸ ہیک څل څل لل لل لي یل یلا یل لل یل یل یل لل یل لل لل لعل لل لل لل لا ره 7 رڅ رر ره رڅ ره هه هد 





أ- الفرض من الكود هو: 


ب- يتم تنفيذ الكود عندما يقع الحدث .............. على أداة التحكم 557 
ت- للاعلان عن المتغير 17 تم استخدام الأمر .. 
ج- الكود المراد تکرارہ هو 
ح- الغرض من استخدام معامل الربط 8 في الجملة ( = 161 1310611. 116 
(Me.label1.Text 8 m‏ هو: 
خ- اكتب مكان النقط جملة الكود اللازمة لإظهار القيمة النهايئة للمتغير 17١‏ بعد تنفيذ الحلقة 





التكرارية فی مريع صندو 


)۳( اجب عن الأسئلة التالیة مستعينا بالكود: 
Dim n, product As Integer‏ 
Dim str As String‏ 
Me.TextBoxl. Text > ""‏ 
For n = 1 To 12‏ 
"= "& ور یق Str=3& "x"‏ 


product = 3 * n 
Me. TextBox1.Text = Me. TextBox1.Text & str کې‎ 
product & vbCrLf 


Next 9 
End Sub 





أ- الغرض من الكود هو: . 


نتا ”عم 


ت- الكود (9و58106 كه 517 0101) الغرض منه الإعلان عن متغير حرفي باسم ا5. (صح - خطأ) 


الفصل الدراسى الثانى 


په هي هي ا 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


کک الي کک لی لی انی نی انی ابی انی نی ي نی مي انت لی مي انت لی مي مي مي مي مي اي مي مي اي مي خي اي نی مي مي مي مي لي ي کې لي دي کي لي اي کي لي اي کي لي لي انی نی لي نی کې لي اي انت لي اي کې لي اي کې اي اي انی انی انی کي يي همي همي خي هي شر 


حا 


.ههه همه مهمعد م م م عام امم ھ امم امعامعامممماممام ماما ھھھ م مھ تم مم ھم مم مم عممعم مممممتمم ماھ م ھھھ ھھھ ماھ م مام نه همه موو وو 


پل لل لل لل یل یل یل لل یل یل یلیل یل یل یل لا لل لعل لل لل لل د د ۰ هپ رڅ رر ره رڅ ره هه هه 





ث- الفرض من الكود (8 * 3 = 0061٥۳م)‏ تخصيص ناتج ضرب الرقم ٣‏ في المتغير ١‏ للمتغير 
616. (صح -خطا) 
ج- الفرض من الكود ( * 3 = 001064:م) تخصيص ناتج ضرب الرقم ٣‏ في المتغير duct‏ ٥۳م‏ 
للمتغير 5. (صح - خطا) 
- الغرض من الكود 


Me.TextBox]. Text = Me. TextBox].Text & str & product & vbCrLf 


ځ- وضع قيمة المتغير النصي 51۳ وناتج المتغير 5001061م كفمة للخاصية 1674 لصندوق النص 
4:1 (صح -خطا) 


.١؟‎ : ۱ الكود التالي لطباعة جدولا لضرب الأعداد للعدد (4) من‎ )٤( 


المطلوب: عدل الكود بحث يطبع جدولا لضرب الأعداد للعدد (7) بحيث يكون الناتج في صندوق النص 
كما يلي: 


5 - 5 ب 7 
9 - 7 × 7 
3 =9 × 7 
7- 11 ×7 


Dim n, product As Integer 


Dim str As String 

Me. TextBoxl. Text ے‎ ٠ 

For n = 1 Ta 1 
Str=d& "x" یل ورك‎ "=" 
product = 4 * n 


Me. TextBaxl.Text = Me, TextBoxl. Text & str & 
product & vbCrLf 


Nex 0 





End Sub 


الفصل الدراسى الثانى 


په هي هي هس هي هي هي هښ هي هم هن هم هم هم هم هم هم هی هم هی هم هی هل هس همي 0 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


کک کي کک لی يي انی انی لی نی انی اي نی مي انت مي مي انت لی مي مي ي مي مي اي مي مي اي مي خي اي نی مي مي مي خي لي ابيب مي لي دي کي لي اي کي لي اي کي لي لي انی کې لي نی انت لي اي انت لي اي کې لي اي کې اي لی انی انی انی مي يي همي همي خي هي شر 


.ههه همه مهمعد م م م ع ھم 0 عامممماممامممماعما ھھھ مھ ھھھ ھھھ م ماھ ع متمم مد مهاه و موو وو 


> 


پل لل لعل لل يل یلا یلا یلیل یل یل یل یلیل یل یل یلا يل يل يي رلا رلا يي يي را را" هن پا پا پل د7 7 7ه 777 ره ره رڅ ره هه هه 





.٠١ : ١ الغرض من الكود التالي طباعة جدولا لضرب الأعداد للعدد (۹) من‎ )٥( 
المطلوب: صوب الأخطاء الأريعة بالکود: حتى نحصل على نتيجة تشغیل صحيحة للكود في الجدول.‎ 


Dim n, product As String 

Dim str As Stringz 

Me. TextBoxl. Text = "" 

For n = 1 To 10 Step -1 
Sir يع ے‎ "x" اغ ور یق‎ " =" 


product = 9 + n 


Me. TextBoxl1. Text = Me. TextBoxl1.Text & sir & 


product & vbCrLf 


Next str 


End Sub 





هښ ا هم هم هن هم هن هم هن همي هم هم مض مس هم هم همز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكراتك جاهزة للطباعة 


کک کي کک لی يي انی انی لی نی انی اي نی مي انت مي مي انت لی مي مي ي مي مي اي مي مي اي مي خي اي نی مي مي مي خي لي ابيب مي لي دي کي لي اي کي لي اي کي لي لي انی کې لي نی انت لي اي انت لي اي کې لي اي کې اي لی انی انی انی مي يي همي همي خي هي شر 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 





)٦(‏ الجدول التالي يحتوي على الكود ونافذة النموذج الخاصة بتشغيل الكود لطباعة جدول الضرب لأي 


عدد من ۷ئ 


المطلوب: اكمل مكان النقط بما يلزم للکود بالجدول لنحصل على ناتج صحیح بعد تشغيل البرنامج. 


!! را‎ product, HUH As Integer 
Din str AS 00 


MN = le, 1218010 121 


He. Textdori. Text = '"" 
۲۲۲٢٢۱ 


= 118 ٥٦٢ وا ين‎ 
product = UN م۳‎ 


le, ۱1201 fert = He, 1813011 Text ١ str ۀ‎ product ¢ vbCrLf 





(۷) اجب عن الأسئلة مستعينا بالكود التالی: 


For 1 = 1 To B Step CC 
Me. TextBox1. Text = Me. TextBox1.Text &4 1 &4 vbCrLf 


کک کک لی لی انی انی انی ي نی کې ي نی مي کي ي مي کي لی مي مي ي کي مي اي ي خي اي کي خي اي مي مي اي مي کې لي ي کې لي لی کې لي ي انی لي اي ي لي ي انی کې لي نی کې اي لن کې لي ي کې لي لت کي اي اي کي مي اي نی مي هي همي خي همي شر 
پل لل لل لل یل یلا لل یل یل یل یل لل یل یل لل لل لا لا لل د د د هدن رڅ رر ره رڅ ره هه هه 


Next 
أ- الغرض من الكود‎ 
21101011111611 اسم متعير العداد‎ = 
الفصل الدراسى الثانى‎ 
- 
مر حر خر خر خر خر حر خر 3 کې 07 ال ال ې کې ې کې ټل پل ال کې کې کې کر کې کې کې کې کې کې کې هې ې ټل ټل هې هې هې یھ حیحص هي ې هي هې هې ابي هې ې هې ر‎ 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 








و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


> 


پل لل لل لعل لل یل یلا یل لل یل یل لل لل لل لل لعل لا لل د د ۰ ۰ د د د رڅ رر ره رڅ ره ره ره هه 





ت- تبدأ الحلقة التكرارية بالقيمة 99017 یٹ 
- تنتهي الحلقه التكرارية عند القيمه 11 1 1 11 اکا اج راہ a‏ 
قيمة زبادة العداد 7ۃ ااه د 


ح- الغرض من ۷66۴ هو ۸ی رادا 
(۸) الكود التالي يستخدم في إدخال عدد موجب. وعند الضغط على زر "أعداد فردية" يطبع الأعداد الفردية من 
١‏ حتى العدد الموجب الذي تم إدخاله؛ وإذا ضغطنا على الزر "أعداد زوجية" فيطبع العداد الزوجية من ٢‏ وحتى 
جب الذي تم إدخاله في صندوق القائمة. 


الكود 


Dim N, i As Integer 
TextBox1. Text 
ListBOX1. l1tems.Clear () 


1 = 1 
bo While i <= N 
ListBox1. Items . Add (1) 
E اس‎ 


Loop 





EERE جملة التكرار ف البرنامج هي:‎ )١( 
100 الغرض من الكود (2 + 1 = 1) في السطر قبل الخير هو:‎ )۲( 
1 22 "00 الغرض من 1.000 هو:‎ )۳( 

الاختيار الصحيح لتحديد طبيعة كل جزء من مكونات سطر الكود: 


)( ت۰ 22> ل لا ہحکژہےت) 1 3 دی( کے د ٤1.‏ 


+0 


سر هللو لو ٤ف‏ رر 


۷۶ ۸۷۱۷۷۷66 
مذكراتك جاهزة للطباعة 


کک کي کک لی يي انی انی لی نی انی اي نی مي انت مي مي انت لی مي مي ي مي مي اي مي مي اي مي خي اي نی مي مي مي خي لي ابيب مي لي دي کي لي اي کي لي اي کي لي لي انی کې لي نی انت لي اي انت لي اي کې لي اي کې اي لی انی انی انی مي يي همي همي خي هي شر 


و وھ و مهمعد م م م عام امم ھ امم مھ یھ ھھھ ھھھ مھ تم مم ھم مم مممھممعممممممتمم متمم مد مهاه و موو وو 


> 


پل لل لل لعل يل یل یل یل لل یل یل یلیل یل یلا یلا يل يل يي ري رلا يي يي لا لا پا په هد هه ۰ 7 یی رر ره رڅ ره ره ره هه 





[4) الكود التالي الغرض منه إدخال عدد موجب. فيظهر مجموع الأعداد الفردية في صندوق نص. 


أ- الغرض من الكود 


Dim را ,لظ‎ sum As Integer | N = ×أن8]ك ج۲‎ 11, 
۶۲ TextBox] . Text 


1 1 
Do 115118 1 4= 
sum = sum - 


۱ 55 11 5-5 2 1 . 1 ۳ ظ ا ال ۱ 


هد د کا لظ هه هغ لظ 8ه هه د ھ 8 ه د ھ 8 ه دم نظ BSB‏ اه ۵ اظ هق ه ات 8 اه BME‏ 8ه اتا 8 


ث- يتم إظهار مجموع الأعداد الفردية في صندوق النص عندما نصل إلى عدد أكبر من 


ال جراء Procedure‏ عبارة عن مجمو ع4 سن الأوامر والتعلیمات تحت اسم معن 


وعند استدعاء هذا الاسم يتم تنفيذ هذه الأوامر والتعلیمیات. 





الفصل الدراسى الثانى 
ې هي هي هي خر خر هي هي ي ي هي هي الال ي هي هي الي ې ي هي الي ي هي هي خی هي هي هي هي هي اہی ہی ہی هي هي هي هي هي هي ي جي جي هې هې عم مم .مم 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 





اح یھی لح یھی لی الي انی انی انی ھی انی کې ي نی مي ي مي مي مي مي مي مي لی مي مي لی مي مي اي نی خي اي مي مي مي مي خي لي دي مي لي دي کې لي دي لي لي اي نی لي لي انی نی لي نی کې لي ابي کې لي انی کې لي اي انی لي اي انی مي اتی نی يي هي همي خي هي شر 


و ممعم مم عمد م م م عم مم ھھھ ھھھ مھ اھ م ھھھ ھم مم مم عممعممممممتمم ماھ م هد مهھ ھام م مام نه هت شي 


مجموعة الأوامر والتعليمات التي يتم وضعها تحت اسم » وعد تتفيذها تعود بقيمة نطلق 


علييا إجراء .Procedure‏ 


مجموعة الأوامر والتعليمات التى يتم وضعها تحت اسم ء وعد تنفيذها تعود بقيمة نطلق 


علبيا دالة Function‏ . 


عندما يكون لدينا كود معين نرغب في تكراره في أكثر من موضع داخل التصنيف 


نستخدم إجراء Procedure‏ . 





5ء وتعود بقيمة راجعة 0٤٨‏ ا۷3. 


الفصل الدراسى الثانى 
بح هي هي خر خر خر هي هي ي هي هي هي ي ي هي هي الي ي ي هي ې ي ي هي هي خی هي هي هي هي ي ہی المي هي هي هي هي هي ھی ال جي هې جي جي عم مم ې ر مر 


WWW.CRYP2DAY.COM 
مذكراتك جاهزة للطباعة‎ 


حا 


ای رای اليه کک ابيب لی انی نی انی ای انی کي ي نی کې کي لی مي انت لی مي مي مي مي مي اي مي خي اي مي خي اي مي کې مي مي مي لي دي لي لي دي کي لي اي کې لي اي لي لي لي انی نی لي نی کې لي اي انت لي اي کې لي اي کې اي لی مي مي اي مي مي هي همي خي هي شر 
پل لل لل يل یل یلا :2 يل یل یل یل یلیل یل یل یل يل يل يي ري رلا يل يي ري لا ري لن د "د هد ۰ د ی7 رر ره ره ره ره هه 


و ف و ممعم م م م عم مھ ھھھ ههام امم مم ماما عنم ل مھ م ھھھ م ماھ م مھ ل مهمد مداه ھام همام نه هت هه 


)١١(‏ اكمل الجدول مستعيناً بالكود التالي: 


Step 2‏ 10 
1 5 " " 5 +162 .11ع ط3ا 


تم الاعلان عن 3131116187 باسم 


ونوعہ 


الفصل الدراسى الثانى 


حا 


پل لل لل لعل يل یل یل یلیل یل یل یل لل لل لل لل لعل لا لد د د د هده 7ه یڅ رڅ رر ره رڅ ره ره هه هد 





sb showUddUrEven (ByVal Start As Integer] 
Dim i As Integer 


Labell. left = "* 
For i1 = Start 16 


Label1.Text = 


Next 
End Sub 


عند استدعاء الإجراء لتنفيذ الكود بدۀ من القيمة 





هښ ا هم هم هن هم هن هم هن هم هم هم مض هم هم هم همز 


04 ۸۷۱۸۷۷۸۷6 
مذكراتك جاهزة للطباعة 


کک کک لی الي نی انی انی ھی انی کې انی نی مي انت مي مي مي لی مي مي اي مي مي اي خي مي اي کي خي مي مي مي مي مي خي لي دي لي لي دي کې لي اي نی لي اي کي لي لي انی اې لي نی کې لي اي انت لي اي کې لي اي انی انی اي انی مي انی کي يي همي همي خي هي شر 


NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN NN NNN NNN NNN 
ذكرة النور د : للصف الثالث الاعدادى‎ 





)۱١(‏ اكمل الجدول مستعيئا بالكود التالی: 


Function ۸۸۸ (ByVal ۷۷ ١ As Integer, ByVal 777 As Integer) As Single 


Code 


Return RRR 


End 0 





الفصل الدراسى الثانى محم 
می حب کی شی انيب کی O O‏ کی اک کی جی خی گی گی نی گی ای نی انی نايب انی انی انی انی نی نی انی انی انی انی انی گی انی انی ای انی بيب يب بي بي اگ وی یں وی وی يي ير 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


> 


کک کي ٤ح‏ ی لی کي نی اي انی ھی انی کي ي نی کې ي ي مي انت لی مي مي ي مي انت اي ي مي اي کي خي اي مي مي مي مي کې لي دي کې لي لی کې اي ي کي لي اي کي لي ي انی کې لي نی کې اي ي کې لي ي انی لي ي کي اي اي انی انی اي نی مي هي همي خي هي شر 
پل لل لعل لل یل یل یل لل یل یل یل لل یل یل لل لعل رلا لل لا لا د د ۰ه د هه هڅ رر ره رڅ ره هه هه 


او مقعم همه ممم م م اعامامعامم م مھ ی ھھھ ھھھ م ھم مم مم عممعم مممممتمم مھ ھھھ ھھھ و موو وو 





EDS: 
= 
نو يو‎ 
أخلاقيات التعامل مع الإنترنت بل مع كافة وسائل ال معلومات والاتصالات أصبحت من موضوعات‎ 
الساعة التي تهم الأفراد والمجتمعات والدول والعلاقات فيما بينهم,‎ 
لذا نسعى في هذا الفصل إلى رفع الوعي لدى أبنائنا وبناتنا بأهمية أخلاقيات التعامل مع الإنترنت,‎ 
وإكسابهم المعلومات والمهارات اللازمة لرفع درجة سلامتهم الشخصية فيما يتعلق بالتعدي عبر الإنترنت.‎ 





خلا نالك : الاترتت سناح ذو حدبرع ؟ دلل على ذلك 





188.۱ يمكن من خلال الإنترنت نستطيع أن نتعلم ... نتثقف .... نتسلی .... نتواصل ... نتحاور... 


أ- الحصول على معلومات خطا. 

ب- نفع فريسة لبعض المعتدين عبروسائط الاتصال الالكترونية. 

ت- إنتهاك الخصوصية. 

ث- إنتحال الشخصية. 

ج- سرقة حسابنا على مواقع التواصل الاجتماعي مثل 30017 او البريد الالكتروني [1/11121. 
ح- تعرض جهازنا لمخاطر الاصابة بالفروسات أو برامج التجسس أو برامج القرصنة. 








للعدى الإلكلزولى 


عبارة عن سلوك عدواني متعمد من شخص لاخر عبر وسائط الاتصال الإلكترونية 





آسکال اللعدى االکتروئی 
-١‏ التحرش. 
"- المضايقة . 
٢‏ الاحراج 
-٤‏ التخويف 
۵- التهديد 
-٦‏ الابتزاز 





الفصل الدراسى الثانى 
هښ هج هي جز هس مي هل هل هل جز ع هل هن ع ثح هم ثح همل هم هي هس هي چم چي چم هي نحن هم هم هم هي هن هم هم هم هم هرن هم هم هم هم هرن هن هم مس هز 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


> 


کک کک لی لی انی انی انی ھی ي کي ي نی کې کي ي مي انت لی مي مي ي مي مي ي ي مي اي کي مي اي مي مي مي مي کې لي ي کي لي لی کې لي اي کي نی اي کي لي ي انی اې لي نی کې اي ي کې لي ي کې اي ي کې اي اي انی مي ي کي مي هي همي خي هي شر 
N HU‏ ا 


هده هده 500000000010101 
ذكرة النور د : للصف الثالث الاعدادى 





من خلاله يمكنك إرسال واستقبال والرد وإعادة توجيه الرسائل الكترونيا مع إمكانية إرفاق ملفات بتلك الرسائل. 
"-المنتديات الإلكترونية . 101111115 





فيها يتم طرح موضوعات للمناقشة فيتم إرسال المشاركة وتجد الردود من الآخرين. 
۳- الرسائل ل ااا 


من خلالها يحدث اتصال فوري بين طرفين أو أكثر عن طرق الكتابة أو المحادثة الصوتية أو المرئية. 
- المدونات الالكترونية . ع5 1:105 
عبارة عن سجل الإلكتروني خاص يدون به صاحب الدونة ما يشاء. 


ه- المواقع الاجتماعية مثل 1001 Face‏ 





facebook 





تسمح بنشر معلومات خاصة للشخص صاحب الحساب. - 





يقصد به : استخدام أسماء مستعارة تخفى شخصية المتعدى الالكتروني بغرض الإفلات من العقاب 
مثال : 

عمرو عضوفي إحدى النتدیات التي تهتم بالرياضة ويشترك بالموضوعات التي تخص فريقه الذي يشجعه بروح رياضية 
كلما أرسل تعليق تلقى رد من ” الصقر المفترس ”في صورة تعليقات غبر لائقة والمشكلة انه لا يعرف من المعتدي. 
المضايقات الإلكترونية (1121:255111110) : 





قب : رسائل عدائيه موجهة ضد شخص أو أكثر 
مثال : 
رامي يقوم بمحادثة زملائه مستخدما خدمة ال 1131 كلما أصبح متاح. حادثة أحد المسجلين لدية بشكل مزعج ومستمر مضيعا لوقته 


وهو يريد أن يتجنب تلك الضایقة.... ومنه فإن المضايقات الإلكترونية 


چھ » هچ ډه 





الفصل الدراسى الثانى محم 
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+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 


> 
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و مقعم ی مهمعد م م م عم امم مھ امم ام ع ھھھ ھھھ نامع مھ ھھھ ھم مم مممعممعم مھم مد مهاه و شي 





َقصد به :هي شكل من أشكال المضايقات الالكترونية لکن بشكل متکررحیث يتتبع العتدي شخص 
معين في كافة الوسائط الالكترونية ويلاحقه. 

مثال : 

تقوم ياسمين يوميا بفتح البريد الإلكتروني الخاص بها يوميا وتجد رسائل إعلانية لنتجات وخدمات ا ا ا الوقث الذي 
تحتاجه في قراءة الرسائل الهامة.................... وعليه 


السب أو القذف الإلكتروني ( 1"121221125) : 





يقصد به :عبارة عن نشر كلمات عدائية ومبتذلة ضد شخص أو أكثر من خلال أحد وسائط الاتصال الالكترونية. 

:١لاثم‎ 

أحد الأشخاص المشهورين يقرأ إحدى الصحف (التي تستخدم مفھوم الويب ٢‏ التي تتيح لقرائها أن ترسل تعليق على الموضوعات المنشورة) 
وجد مقال يتكلم عنه وهويقرأ تعليقات القراء وجد إحدى التعليقات التي تسبه بشكل مبتڈل. 

مثال ۲: 

أحد الأشخاص يتلقى رسائل نصية على هاتفه فيها شتائم. 





التشهبر الإلكتروني (01111115)) : 
اال عبارة عن نشر معلومات عن شخص محدد اواكثر بشكل مسین 
مثال : 


أحد الطلاب قام بزيارة زميلة وجده جالس أمام جهاز الكمبيوتر الخاص به فقام بنسخ الصور العائلية الخاصة بزميلة وأرسلها لبريده دون 
أن يعرف زميله ثم في وقت لاحق قام هذا الولد السيئ بنشر هذه الصور على المدونة التي قام بإنشائها فسببت إحراج للولد صاحب الصور 
ولعائلته . 





يقصد به :عبارة عن تجاهل شخص او اكثر من خلال وسائط الكترونية 
مثال : 
هناك مجموعة من الأولاد يستخدمون الكمبيوتر في ممارسة ألعاب الشبكة وكان عددهم ه ,وجد أنه يتم تجاهل أحدهم 


كانه لا يلعب معهم مع أنه موجود على الشبكة معهم. 


التهديد الإلكتروني (Cyber threats)‏ : 
يقصد به :عبارة عن إرسال رسائل الكترونية تحمل تهديد اووعید لشخص او اكثر 
مثال : 


مجموعة من الأولاد بينهم مشاحنات یقوم كل طرف بإرسال رسائل نصية للتهديد أو بريد إلكتروني يتوعدون فيهم بعضهم البعض 





الفصل الدراسى الثانى 
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مذكواتك جاهزة للطباعة 
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و وه 7 للصف الثالث الإعدادى 





كيف نمل وسل مل اللعدى الد( لل؛ 


يمكنك حماية نفسك من هذا التعدي بإتباع قواعد الاستخدام الامن الآنية : 


+£ هچ 





-١‏ لا تشارك أحد بكلمة السر 

۲- تأكد من تکوین كلمة سر يصعب على غيرك تخمينها 

-٢‏ عدم نشر ای معلومات اوبيانات خاصة على الإنترنت. 

-٤‏ عدم حذف أو التخلص من الرسائل الإلكترونية المرسلة من المتعدي إلكترونيا 

-٥‏ عدم مقابلة أحدا قد تعرفت عليه عن طريق الإنترنت 

-٦‏ لا تتسرع بإرسال رسالة | لكترونية وانت فى حالة الفضب 

۷- اطلاع ولى الامر بما يضايقك عند استخدام الإنترنت 

۸- لاتقم بإنزال البرامج من الإنترنت على جهازك من غير استشارة والديك أو أحد المدرسين. 

۹- احترم دائما حق الآخرين على شبكة الإنترنت, وتعلم الخلق الحسن الذي یعتبر فن أدب التحاور على شبكة الإنترنت. 
۰- قم بالإبلاغ عن التعدي الإلكتروني للسلطات الختصة. 


+5 الإرشادات السابقة 





-١‏ قال عمرو لياسمين أريد ان ارسل رسالة الى صديق و ليس عندى حساب بريد الكتروني هل من الممكن ان تعطيني اسم المستخدم وكلمة 
اٹرور الخاصبن بك حتى أتمكن من ارسال هذه الرسالة 

فى رأيك ماذا تفع ! 

الاجابة : لا تشارك أحد بكلمة السر 

۲- قام عمرو بانشاء حساب بريد الكترونى خاص به فحاولت ياسمبن استنتاج كلمة المروربان كتبت اسمه ثم سنه ميلاده ففتح الحساب 
في رأيك ما الخطأ الذي وقع فيه عمرو؟ وكيف يتجنب ذلك؛ 


چھ هوه ©» ۰ 


الاجابة : اختاركلمة استنتاجها. ولتجنب ذلك عليه اختياركلمة ذات درجة صعوبة عالية تحتوى على أرقام وحروف وعلامات 





خاصةء وأكثر من 8 حروف. مع تغيبرها كل فترة. 

؟- قام رامى بالاشتراك فى خدمة ال 260017 و قام بنشر معلومات خاصة باسرتة مستعرضا صورالاسرة و انشطتهم اليومية 
فقام لص بالاستفادة من تلك المعلومات وتمكن من سرمتھم! 

في أ ريك ماذا کان يجب أن يفعل؛ وهل هناك مخاطر أخرى يمكن أن يتعرض لها جرا ء هذا التصرف؟ 

الاجابة: عدم نشر أي بيانات خاصة, نعم مثل : التعرض للتشهبر أو الابتزاز أو انتحال الشخصية نتيجة وقوع صور العائلة فی بد أشخاه 


الفصل الدراسى الثانى 


+۹۷ ۸۷۷۱۸۷۷۸۸۷ 
مذكواتك جاهزة للطباعة 
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-٤‏ اشتكى احد الطلاب لمعلمه ان زميلة سبة فى رسالة بريد الكترونى فقال المعلم ارنى تلك الرسالة فقال الطالب لقد حذفتها فقال المعلم 


لقد اضعت الدليل 

فى رأيك ماذا كان يجب ان يفعل ؛ 

الاجابة : عدم حذف أو التخلص من الرسائل الإلكترونية المرسلة من المتعدي إلكترونيا 
-٥‏ قال عمرو لوالده لقد تعرفت على شخص فى احدى غرف المحادثة و یود ان يقابلنى 
فى رأيك ماذا كان رد والده ؛ 

الاجابة : حذره بشدة ومنعه من مقابلة غريا , أو مقابلة من تعرف عليهم عبر الانترنت. 


-٦‏ حدثت مشادة كبيرة في حواربين عمرو وياسمين عبر أحد موامع التواصل الاجتماعي أو غرف المحادثة , ففضب عمرو غضبا شديدا ود 


رسالة تهديد ووعيد لياسمين. 
ما رأيك في تصرف عمرو؟ 
الاجابة: تصرف متسرع, وكان عليه اتباع قواعد الاستخدام الآمن للانترنت ”حاذرمن إرسال رسالة الکترونیة وأنت غاضب ''. 





-٧‏ يستخدم عمروالاتترنت في عمل بعض الأنشطة المدرسية بالتعاون مع زملائه , ولاحظ أنه كلما استخدم الانترنت تصله رسائل 
فورية في برامح المحاثة 1031')مسیئة له , ففكر في الابتعاد عن استخدام الانترنت لتجنب الاسا ة ودفاعا عن نفسه 


ما رأيك في تصرف عمرو؟ 
الاجابة: تصرف سلبى» وكان عليه أن يلجا لطاب المساعدة من والده أو أخيه الأكبر أو معلم الكمبيوتر لساعدته فى موا 





بايجابية . 
۸-اعتادت ياسمين على إنزال أي برامج من جميع المواقع التي تزورها على الانترنت, فتسبب ذلك في إصابة الكمبيوتر بالفيروسات وبرامج 
التجسس 

هل توافت على إنزال اي برامج غبر معروفة من الانترنت؟ 





الفصل الدراسى الثانى 
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هده هده 500000000010101 
ذكرة النور د : للصف الثالث الاعدادى 





-١‏ التعدي الإلكتروني هوعبارة عن سلوك عدواني متعمد. يستخدم بها المتعدي الوسائط الإلكترونية للتحرش, والمضايقة, 
وإحراج, وتخویف أو تهديد الآخرین. 
؟- التعدي الالكتروني يتم من خلال وسائط إلكترونية مثل مواقع التواصل الاجتماعي 
؟- التخفي الالكتروني يعتبر صورة من صور التعدي الالكتروني 
4- التحرش والتهديد من أهم الوسائط الالكترونية المستخدمة في التعدي الالكتروني 
-٥‏ المضايقة والابتزازمن أشكال التعدي الالكتروني 
-٦‏ سرقة حساب شخص في مواقع التواصل الاجتماعي أو بريده الالكتروني أحد المخاطرالتي يمكن أن نتعرض 
لها عبر وسائط التواصل الالكتروني. 
۷- مواقع التواصل الاجتماعي تساعد في التعرف على أشخاص جدد يفضل مقابلتهم لتطوير العلاقات الاجتماعية. 
۸- تمشيا مع قواعد الاستخدام الآمن يفضل أن تضع كلمة مرورسهلة للبريد الالكتروني الخاص بك حتى تستطيع تذكرها. 
۹- الاستثناء الالكتروني يعني تتبع شخص معين في كافة وسائل التواصل الالكترونية 
-٠١‏ الملاحقة الالكترونية يقصد بها إرسال رسائل إلكترونية تحمل تهديد أو وعيد لشخص أو أكثر 
السؤال الثاني: اكمل الجدول التالي موضحا أ ريك في كل عبارة مما يلي : 
رید في شوه قوسد الاستخدار لآم 
وضع كلمة مرورسهلة الاستنتاج. 
نشر شخص لاسمه الحقيقى وعنوانه ورقم تليفونه عبر الوسائط الالكترونية. 


إنزال إي برامج تتاح لك على الانترنت. 
> | الرد السريع الغاضب على تعدي قد تتعرض له عبر الانترنت. 

حذف جميع الرسائل التي تم تهديدك بها في مواقع التواصل الاجتماعي أو 
0 البريد الالكتروني. 


السؤال الثالث : مواقف حياتيا 


-١‏ اشترك احد الأشخاص فى احد مواقع التواصل الاجتماعي وكلما راسل احد الاعضاء اوحاول اجراء محادثة فورية معة 





لاحظ عدم الرد علية 
++ يعتبر ما حدث شكل من أشكال ¢ د د د د د + د د د د + د د د د هپ و یسەمی ¢ د د د د د د د د د د د د د د د د د د + د هپ 
٭٭ ماذا تفعل لمواجهة ذلك التصرف. 7774٢‏ 


- اشتركت في أحد مواقع التواصل الاجتماعي وفوجئت بتهكم أحد الأشخاص على مصر والحديث عن رموزها بشكل غبر لائق. 
“ حدد )٤(‏ أربعة تصرفات إيجابية يمكن من خلالها الرد عليه: 


¬ ۲- 
۴ خ- 
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